Wie löschen Sie mehrere leere Spalten in Excel schnell?
Beim Importieren von Daten aus Webseiten, CSV- oder Textdateien in Microsoft Excel entstehen oft zahlreiche leere Spalten. Jede einzeln zu löschen, wäre äußerst zeitaufwändig – daher suchen viele nach einer schnellen und einfachen Lösung. In diesem Artikel finden Sie praktische Tipps, um mehrere leere Spalten effizient zu entfernen.
Mehrere leere Spalten im Arbeitsblatt mithilfe einer Formel löschen
Mehrere leere Spalten im Arbeitsblatt mithilfe eines VBA-Codes löschen
Mehrere leere Spalten mit einer Überschrift mithilfe eines VBA-Codes löschen
Mehrere leere Spalten im Arbeitsblatt mithilfe einer Formel löschen
In Excel können Sie eine Formel anwenden, um zu ermitteln, ob Spalten leer sind oder nicht, und anschließend die Sortierfunktion verwenden, um alle Leere Spalten zusammenzufassen und dann auf einmal zu löschen. Gehen Sie dazu wie folgt vor:
1. Fügen Sie eine neue Zeile am Anfang Ihres Datenbereichs ein – siehe Screenshot:
2. Geben Sie anschließend die folgende Formel in Zelle A1 ein und ziehen Sie den Ausfüllknebel nach rechts, um die Formel auf weitere Zellen zu übertragen. Eine Spalte wird als LEER (TRUE) angezeigt, wenn sie leer ist; andernfalls erscheint FALSCH (FALSE) – siehe Screenshot:
3. Wählen Sie anschließend den Datenbereich einschließlich der Hilfszeile aus, und klicken Sie auf „Daten“ > „Sortieren“ (siehe Screenshot):
4. Klicken Sie im erscheinenden Dialogfeld „Sortieren“ auf die Schaltfläche „Optionen“. Wählen Sie im Dialogfeld „Sortieroptionen“ die Option „Von links nach rechts sortieren“ (siehe Screenshots).
 |  |  |
5. Klicken Sie auf „OK“, um zum Dialogfeld „Sortieren“ zurückzukehren. Wählen Sie dann in der Dropdown-Liste „Sortieren nach“ die Option „Zeile 1“, im Bereich „Sortieren nach“ die Option „Zellwerte“ und im Abschnitt „Reihenfolge“ die Einstellung „Größte zu kleinste“ – siehe Screenshot:
6. Anschließend wurden alle leeren Spalten nach links verschoben. Wählen Sie nun einfach alle betreffenden Spalten aus, klicken Sie mit der rechten Maustaste und wählen Sie „Löschen“, um diese leeren Spalten auf einen Schlag zu entfernen – siehe Screenshot:
Mehrere leere Spalten im Arbeitsblatt mithilfe eines VBA-Codes löschen
Wenn Sie ein VBA-Makro verwenden, wird die Aufgabe deutlich einfacher – der folgende VBA-Code unterstützt Sie dabei. Gehen Sie wie folgt vor:
1. Halten Sie in Excel die Tastenkombination „Alt + F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie das folgende Makro in das Modulfenster ein.
VBA-Code: Mehrere Leere Spalten in der Auswahl löschen:
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie F5, um das Makro auszuführen, und wählen Sie im daraufhin erscheinenden Dialogfeld den gewünschten Arbeitsbereich aus. Siehe Screenshot:
4. Klicken Sie auf „OK“. Anschließend werden alle leeren Spalten in der Auswahl entfernt. Siehe Screenshot:
Mehrere leere Spalten Ausgewählter Bereich / Aktuelles Arbeitsblatt / in der gesamten Arbeitsmappe mit Kutools für Excel löschen
Das Hilfsprogramm „Ausgeblendete Zeilen/Spalten löschen“ von Kutools für Excel ermöglicht es Ihnen, mehrere leere Zeilen oder Spalten schnell und auf einen Schlag zu entfernen.
Nach der Installation von Kutools for Excelgehen Sie bitte wie folgt vor:
1. Klicken Sie auf „Kutools“ > „Löschen“ > „Ausgeblendete Zeilen/Spalten löschen“ – siehe Screenshot:
2. Wählen Sie im Dialogfeld „Ausgeblendete Zeilen/Spalten löschen“ im Dropdown-Menü „Suchen in“ den gewünschten Geltungsbereich aus. (Wenn Sie „Ausgewählter Bereich“ wählen, müssen Sie zuvor einen Bereich markieren.) Aktivieren Sie anschließend „Spalten“ unter „Löschtyp“ und wählen Sie „Leere Spalten“ unter „Detaillierter Typ“ aus. Siehe Screenshot:
3. Klicken Sie anschließend auf „OK“. Die leeren Spalten wurden aus dem ausgewählten Bereich entfernt. Siehe Screenshot:
Mehrere leere Spalten mit einer Überschrift mithilfe eines VBA-Codes löschen
Manchmal möchten Sie alle leeren Spalten löschen, die lediglich eine Überschrift enthalten – der folgende VBA-Code hilft Ihnen dabei. Gehen Sie wie folgt vor:
1. Halten Sie in Excel die Tastenkombination „Alt + F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie das folgende Makro in das Modulfenster ein.
VBA-Code: Alle leeren Spalten mit einer Überschrift löschen
Sub deleteblankcolwithheader()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die Taste F5, um den Code auszuführen. Es erscheint ein Hinweisfenster, das Sie darüber informiert, dass leere Spalten mit Überschrift gelöscht werden (siehe Screenshot):
4. Klicken Sie dann auf „OK“. Anschließend werden alle leeren Spalten, die ausschließlich eine Überschrift enthalten, im aktuellen Arbeitsblatt auf einmal gelöscht. Siehe Screenshots:
 | |  |
Weitere verwandte Artikel:
- Alle ausgeblendeten Zeilen oder Spalten in Excel löschen
- Wenn Sie eine große Arbeitsmappe mit zahlreichen ausgeblendeten Zeilen und Spalten haben und diese Daten nun nicht mehr benötigen – wie können Sie sie schnell löschen?
- Alle Bilder oder andere Objekte in Excel löschen
- Wenn Sie alle Bilder aus Microsoft Excel löschen möchten, kann es zeitaufwändig sein, jedes einzeln auszuwählen und zu entfernen. Mit den folgenden Tricks gelingt Ihnen das mühelos – und im Handumdrehen sind alle Bilder weg.
- Zeilen löschen basierend auf Hintergrundfarbe in Excel
- Wie können Sie ganze Zeilen basierend auf der Hintergrundfarbe löschen? In diesem Beispiel sollen alle Zeilen entfernt werden, deren Zellen eine blaue Hintergrundfarbe aufweisen – wie im folgenden Screenshot dargestellt. Mit diesem Artikel erhalten Sie praktische Code-Beispiele, um diese Aufgabe in Excel effizient zu erledigen.
- Alle Zeilen löschen, die einen bestimmten Text innerhalb einer Spalte in Google-Blättern enthalten
- Angenommen, Sie haben einen Datenbereich in einem Google-Blatt und möchten Zeilen basierend auf den Werten einer bestimmten Spalte löschen – zum Beispiel alle Zeilen, in denen in Spalte C der Text „Complete“ steht. In diesem Artikel zeige ich Ihnen, wie das in Google-Blättern ganz einfach funktioniert.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins