dieses Makro soll in Spalte 1 überall die Zeilen löschen in den ein Wert von 0-1200 steht, klappt aber nicht. An was könnte das liegen?
Sub sauber()
Dim z As Long, lZ As Long
lZ = Sheets("tabelle1").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("tabelle1")
If Cells(z, 1).Value Like ["0 - 1200"] Then .Rows(z).Delete
End Sub
Gruß
Maris