Zeile löschen
07.01.2009 12:41:00
Holger
stehe vor einem Problem.
Hab im Archiv folgenden Code gefunden um Zeilen mit bestimmten Inhalten löschen zu können:
Sub Loeschen()
Dim i As Long, laR As Long
Worksheets("Tabelle1").Activate
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 2 Step -1
If Cells(i, 2) = "po" Then Rows(i).EntireRow.Delete
Next i
End Sub
Klappt auch, wenn der Inhalt "po" ist. Was muss ich umbauen, wenn auch Zeilen mit Inhalten wie "Polo", "Harpo", "Südpolen" oder Ähnliche gelöscht werden sollen.
Danke im Voraus und Eiserne Grüße aus der Hauptstadt
Holger