Alle leeren Zellen löschen
© sdecoret - Adobe Stock

Alle leeren Zellen löschen

Wie Sie alle leeren Zellen entfernen

Sie möchten alle Zellen in der aktiven Tabelle löschen, die leer sind? Das ist über ein Makro kein Problem. Das folgende Makro löscht alle leeren Zellen in der aktiven Tabelle:

Sub LeereLoeschen()

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select

Selection.Delete Shift:=xlUp

End Sub

Das Makro sucht automatisch alle leeren Zellen im benutzern Bereich der aktiven Tabelle und löscht diese Zellen. Dabei werden unterhalb davon befindliche Zellen nach oben verschoben. Sie erhalten also eine hochverdichtete Tabelle.