Thema Datum  Von Nutzer Rating
Antwort
06.03.2021 11:14:27 Christian
NotSolved
06.03.2021 12:04:51 Werner
NotSolved
06.03.2021 18:28:54 Mase
NotSolved
Blau Wenn bestimmter Text in Zelle vorkommt, ganze Zeile kopieren
 06.03.2021 12:17:57 volti
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
06.03.2021 12:17:57		 Views:
256		 Rating:
     
Antwort:
 Nein
Thema:
Wenn bestimmter Text in Zelle vorkommt, ganze Zeile kopieren

Hallo Christian,

hier eine mögliche Vorgehensweise:

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30		  
Option Explicit

Sub Suchen()
  Dim oFinde As Object
  Dim sSuch As String, sErsteAdresse As String
  Dim iAnz As Integer, iOutZeile As Long
  Dim WShZ As Worksheet, WShQ As Worksheet

' Suchbegriff abfragen (optional,ggf. abändern, entfernen)
  sSuch = InputBox("Bitte Suchbegriff eingeben!", "Kopieren")
  If StrPtr(sSuch) = 0 Then Exit Sub
  If sSuch = "" Then Exit Sub

' Quell- und Zielblatt setzen
  Set WShQ = Worksheets("Tabelle1")                          ' <<<anpassen>>>
  Set WShZ = Worksheets("Tabelle2")                          ' <<<anpassen>>>

' Erstes Feld mit dem Suchbegriff suchen
  Set oFinde = WShQ.Range("A:A").Find(sSuch, LookIn:=xlValues, LookAt:=xlWhole)

  If Not oFinde Is Nothing Then
     sErsteAdresse = oFinde.Address                          ' Erste Adresse merken
     Do
        iOutZeile = iOutZeile + 1                            ' Nächste Ausgabezeie
        oFinde.EntireRow.Copy WShZ.Cells(iOutZeile, "A")     ' Zeile kopieren
        Set oFinde = WShQ.Range("A:A").FindNext(oFinde)      ' Nächsten Suchbegriff suchen
        If oFinde Is Nothing Then Exit Do
     Loop While Not oFinde Is Nothing And oFinde.Address <> sErsteAdresse
  End If
End Sub
_________
viele Grüße
Karl-Heinz

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.03.2021 11:14:27 Christian
NotSolved
06.03.2021 12:04:51 Werner
NotSolved
06.03.2021 18:28:54 Mase
NotSolved
Blau Wenn bestimmter Text in Zelle vorkommt, ganze Zeile kopieren
 06.03.2021 12:17:57 volti
Solved