hier ein kleiner Ausschnitt aus meinem Makro.
Sub Aendern()
With Worksheets("Tabelle1")
Teilstring = "mbau"
For i = Range("A500").End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "Storno" Then Rows(i).EntireRow.Delete
If Cells(i, 5) Like "*" & Teilstring & "*" Then Rows(i).EntireRow.Delete
If Len(Cells(i, 2))
Könnte mir jemand diesen Teil ergänzen? Herzlichen Dank
Gruß, Margarete