Ich habe ein Makro, welches mir Sämtliche Zeilen, in welchen das Wort "liftgate" vorkommt, in Tabelle2 kopiert. Der Suchbereich ist Zeile 1 bis 65536.
Nun ist es so, dass ich in der Tabelle die nach dem Wort "liftgate" durchsucht wird einige rotmarkierte Zeilen habe, welche eine Art Datumsgrenze darstellen. Ist es möglich den zu durchsuchenden Bereich so festzulegen, dass nur zwischen der 2. und 4. roten Zeile und nicht wie vorher festgelegt von Zeile 1 bis 65536?
Hier das bisherige Makro:
Sub Liftgate()
Dim Zeile As Long, Zelle As Range
For Zeile = 2 To Cells(65536, 1).End(xlUp).Row
With Range(Cells(Zeile, 1), Cells(Zeile, 256))
Set Zelle = .Find("liftgate")
If Not Zelle Is Nothing Then .Copy Sheets(2).Rows(Sheets(2).Cells(65536, 1).End(xlUp).Row + 1)
End With
Next
End Sub
MfG
Dominik