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
LG Brigitte