Ab dritter Zeile Wörter in A suchen, Zeile löschen
09.12.2015 12:23:12
Kerstin
Guten Tag,
ich habe folgenden Code, der die Wörter Biespiel1 und Beispiel2 in Spalte A suchen soll.
Ich hätte nur gerne, dass er erst in der Zeile drei mit dem Suchen und Löschen beginnen soll.
Was muss ich abändern?
Sub Löschen()
Dim arrSuchbegriff, i&
arrSuchbegriff = Array("Beispiel1", "Beispiel2")
For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:= _
False
Next i
ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
ActiveSheet.Cells.EntireRow.Delete
End Sub
Anzeige