Das Archiv des Excel-Forums

Schleife bis Suchbegriffe abgearbeitet?

Bild

Betrifft: Schleife bis Suchbegriffe abgearbeitet?
von: Thorsten

Geschrieben am: 10.10.2003 19:52:54

Hab dieses Script gefunden:


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
Bild


Betrifft: AW: Schleife bis Suchbegriffe abgearbeitet?
von: A. Schnell
Geschrieben am: 10.10.2003 20:32:02

Hallo Thorsten,

da baust Du einfach eine weitere For-Schleife drum. Dann weist Du den Value der Suchbegriffzellen einfach zu.

z.B.
for suchspalte = 1 to 100
for i = 1 to .....
if Sheets("Suchblatt").Cells(i,1) = Sheets("Worksheet3").Cells(1,suchspalte)
....


Gruß
Anton


 Bild

Excel-Beispiele zum Thema " Schleife bis Suchbegriffe abgearbeitet?"

In einer Schleife auf Elemente einer UserForm zugreifen download CheckBoxes in UserForms in eine Schleife einbinden download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download UserForm-Optionsfelder über eine Schleife zurücksetzen download
Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download Suchbegriffe in UserForm eingeben, Fundstelle importieren download
Suchbegriffe an Google übergeben und Ergebnis aufrufen download