ich nutze folgenden Code um mir Zeilen löschen zu lassen die einem Kriterium nicht entsprechen:
LZ = Cells(Rows.Count, 7).End(xlUp).Row
For z = LZ To 3 Step -1
If Not Cells(z, 7) = "Schmitz" Then Rows(z).Delete Shift:=xlUp
Next z
kann ich diesen Code auch nutzen / umschreiben wenn ich mehr als ein Kriterium hab. Sprich, wenn nicht Schmitz, Meier, Peters etc. dann bitte löschen, und wie könnte ich das realisieren?
Gruß
Michael