VBA Zeilen löschen

[hddiesel]

Hallo deschroe,

Row + 1, damit Min eine Leerzelle gefunden wird, dadurch auch ohne On Error möglich.

Code:

Sub Zeilen_Löschen()
    With ActiveSheet
        Columns(2).Replace 0, "", 1
        Range("B2:B" & ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With

End Sub

MfG Karl