Sub test()
Dim sp As Long
For sp = 1 To ActiveSheet.UsedRange.Columns.Count
If WorksheetFunction.CountA(Columns(sp)) = 1 Then Columns(sp).Hidden = True
Next
End Sub
Public Sub SpaltenAusblenden()
Dim iSpalte As Integer
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle1")
.Columns("A:DS").EntireColumn.Hidden = False
For iSpalte = 1 To 123
If Application.CountA(.Range(.Cells(2, iSpalte), .Cells(3000, iSpalte))) = 0 Then
Columns(iSpalte).Hidden = True
End If
Next iSpalte
End With
Application.ScreenUpdating = True
End Sub
Um in Excel leere Spalten auszublenden, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
Öffne die Excel-Datei, in der du die leeren Spalten ausblenden möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:
Sub SpaltenAusblenden()
Dim iSpalte As Integer
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle1") ' Passe den Tabellennamen an
.Columns("A:DS").EntireColumn.Hidden = False
For iSpalte = 1 To 123
If Application.CountA(.Range(.Cells(2, iSpalte), .Cells(3000, iSpalte))) = 0 Then
.Columns(iSpalte).Hidden = True
End If
Next iSpalte
End With
Application.ScreenUpdating = True
End SubSchließe den VBA-Editor.
Drücke ALT + F8, wähle SpaltenAusblenden aus der Liste und klicke auf Ausführen.
Nach dem Ausführen des Makros werden alle Spalten, die ab der zweiten Zeile leer sind, automatisch ausgeblendet.
Fehler: Spalten werden nicht ausgeblendet.
Fehler: Makro wird nicht ausgeführt.
Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.Falls du kein VBA verwenden möchtest, kannst du auch den Autofilter nutzen:
Daten > Filter > Autofilter.Diese Methode ist jedoch weniger effizient, wenn du viele leere Spalten hast.
.Group, um zwischen sichtbaren und ausgeblendeten Spalten zu wechseln, ohne das Makro erneut ausführen zu müssen.1. Wie kann ich leere Zellen ausblenden?
Du kannst die Funktion =WENN(ISTLEER(A1);"";A1) verwenden, um leere Zellen auszublenden, aber das Ausblenden von Zellen funktioniert nicht wie das Ausblenden von Spalten.
2. Kann ich mehrere Spalten gleichzeitig ausblenden?
Ja, das Makro blenden alle leeren Spalten auf einmal aus. Du musst nur sicherstellen, dass der Bereich korrekt definiert ist.
3. Welche Excel-Version benötige ich für das Makro?
Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010, 2013, 2016 und 2019.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen