zeilen löschen

Sub DatenBereinigen()
Sheets("aTäglicheTagesberichtDatenFirst").Select
'Columns("W:AU").Select
'Selection.Delete Shift:=xlToLeft
Cells.Select
Dim zelle As Long
For zelle = 22 To 2 Step -1
If Cells(zelle, 3) <> "Geschwindigkeitsüberschreitung" _
And Cells(zelle, 3) <> "Zwangsbremsung mit Zählung" _
And Cells(zelle, 3) <> "Zwangsbremsung GP / Hauptsignal" _
And Cells(zelle, 3) <> "Zwangsbremsung GP / Hauptsignal / Gleiskreisstörung" _
And Cells(zelle, 3) <> "Zwangsbremsung mit Zählung / Elektr. Störung" _
And Cells(zelle, 3) <> "Zwangsbremsung mit Zählung / Signalstörung" _
And Cells(zelle, 3) <> "Geschwindigkeitsüberschreitung / Freigeschaltet ohne Auftrag." _
And Cells(zelle, 3) <> "Zwangsbremsung mit Zählung / zu schnell umgerüstet." _
And Cells(zelle, 3) <> "Fahrt gegen H0 ohne Auftrag" _
And Cells(zelle, 3) <> "Zwangsbremsung GP / Hauptsignal / GP Störung" _
And Cells(zelle, 3) <> "Zwangsbremsung ohne Zählung" _
And Cells(zelle, 3) <> "Zwangsbremsung mit Zählung / Grund nicht erkennbar" _
And Cells(zelle, 3) <> "Zu schnell umgerüstet" _
Then Rows(zelle).Delete
Next
End Sub