Gibt es eine möglichkeit aus einer Spalte alle leeren Zellen herauszulöschen?
Mfg
Chris
Sub Leerzellen_LöschenPH2()
' von Peter Hasserodt
' alle Leerzellen löschen
Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
End Sub