Excel VBA


Wenn in der Spalte A ein leerer Eintrag ist, soll
die gesamte Zeile gelöscht werden

Sub Loeschen()
 Columns(1).Cells.SpecialCells(xlCellTypeBlanks) _
 .EntireRow.Delete
End Sub


Wenn in der Spalte A ein leerer Eintrag ist, soll
die gesamte Zeile gelöscht werden
... erst ab Zelle A2

Sub Loeschen()
 Range("A2", Range("A65536").End(xlUp)).Cells. _
 SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub