Wer kann diese Makro erweitern?
Dim Zelle As Long
For Zelle = 1000 To 2 Step -1
If Cells(Zelle, 16).Value "Unfall" Then Rows(Zelle).Delete
Next
Die Zeile soll auch dann nicht gelöscht werden wenn in den Zellen das Wort Entgleisung vorkommt
Danke
Gruss
Achim H.