Alle leeren Zellen löschen
Veröffentlicht am
|
Zuletzt aktualisiert am
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.