Zeilen löschen
25.06.2007 11:19:50
sascha76er
vielleicht kann mir jemand hier weiterhelfen, ich möchte gerne Zeilen löschen bei denen in einer bestimmten Spalte ein bestimmter Wert auftaucht. Dies funktioniert mit dem folgenden Skript mit einem Wert einwandfrei, wie muss ich das Skript abändern damit ich auch mehrere Werte abfragen kann.
Kann man eigentlich mit einem Makro ein anderes anstossen?
Sub ZeilenKiller()
Dim i As Long, laR As Long
Dim sp As Integer
sp = 1 'Spaltennummer (1=A, 2=B, ...)
Application.ScreenUpdating = False
laR = Cells(Rows.Count, sp).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, sp).Value = "abc" Then
Cells(i, sp).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Sascha
Anzeige