Schleife bis Suchbegriffe abgearbeitet?
10.10.2003 19:52:54
Thorsten
Sub Copy()
Dim i As Long
Dim TB2 As Worksheet
Set TB2 = Worksheets("Tabelle2")
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "Thorsten" Then
Rows(i).Copy TB2.Rows(TB2.Range("A65536").End(xlUp).Row + 1)
End If
Next i
End Sub
Das ist schon recht gut für meine Zwecke... das durchsucht eine bestimmte Spalte nach dem Inhalt "Thorsten" und kopiert dann diese Zelle + Zelle 1 in Worksheet 2!
Wie gebe ich dann... das der Suchbegriff nicht "Thorsten" sein soll... sondern es mehrere Suchbegriffe gibt... und die alle in Worksheet 3 von Spalte x bis y liegen! Also... Abfrage... If Cell (i, 1) = "eine Wert auf Row x bis y von Worksheet 3? Also ne Schleife bis alle Suchbegriffe abgearbeitet worden sind!
Gruß
Thorsten