Bedingte Zeilenlöschung Fehler 13
28.06.2022 13:55:21
BriBri
ich habe erst vor kurzen mit VBA angefangen und kenne mich dementsprechend schlecht aus. Im Internet habe ich einen Code gefunden, der mir die Zeile löschen soll, wenn in Spalte D eine Null steht. Ich bekomme immer den Laufzeitfehler 13 und die Ausführung stoppt bei der Zeile If Cells(t, 4).Value = "0" Then
Kann mir jemand helfen, den Fehler los zu werden? In der Spalte D stehen bei mir Text, leere Zellen, Zahlen und Null.
Sub DeleteRows()
Dim lz As Long
Dim t As Long
' Zeilen löschen bei denen in Spalte D der Wert "0" ist
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Row
'** Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in Spalte 4 der Wert "0" ist
If Cells(t, 4).Value = "0" Then
Rows(t).Delete Shift:=xlUp
End If
Next t
End Sub
Anzeige