ich habe in einer Tabelle in der Spalte AE mit Hilfe einer Wenn-Funktion verschiedene Zeile mit einen "x" gekennzeichnet. Die Formel habe ich durch Werte ersetzt. Ich möchte nun mit Hilfe eines Makros alle Zeilen löschen bei dennen in der Spalte AE ein "x" steht. Dazu habe ich folgenden Code. Leider funktioniert er aber nicht. Könnt Ihr bitte mal nachschauen wo der Fehler steckt
Sub loeschen()
'Alle Zeilen mit einen "x" in Spalte AE (31)
Dim i As Long
For i = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 31).Value = "x" Then Rows(i).Delete
Next i
End Sub
Vielen Dank für Eure Hilfe.
Gruß,
Jakob