In meiner Tabelle möchte ich das automatisch die Zeilen gelöscht werden wenn bestimmte Wörter in einer Spalte stehen.Kann mir jemand weiterhelfen?
Danke Ingo
Hallo Ingo,
folgendes Makro löscht alle Zeilen des aktiven Tabellenblattes, bei denen in Spalte A "raus", "weg" oder "löschen" steht.
Sub Zeilen_loeschen()
Dim rng As Range
For Each rng In Range("A1:A" & Range("A65536").End(xlUp).Row)
Select Case rng
Case "raus", "weg", "löschen"
rng.EntireRow.Delete
Case Else
End Select
Next 'rng
End Sub