Hallo zusammen,
folgender Code spuckt mir den besagten Run-time Error 1004 aus:
Range("B3").Select
ende = Range("B4000").End(xlUp).Row
Do Until i = ende
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
an sich funktioniert der Code wenn wenigstens eine der Zeilen mit Werten sind. Scheinbar kommt der Fehler jedoch wenn keine Werte vorhanden sind. Könnte man den Fehler mit Iferror umgehen, kenne mich diesbezüglich leider nicht besonders gut aus?
Gruß
Michael