Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten ausblenden wenn Zellen leer sind

Spalten ausblenden wenn Zellen leer sind
25.01.2018 11:41:10
Sofie
Hallo zusammen,
ich bin ein ziemlicher VBA Neuling, habe ein kleines Problem und hoffe hier auf Hilfe :)
Ich würde gerne Spalten asblenden wenn die ein bestimmter Zellenbereich leer ist.
Ich habe hier schon einen Teil der Lösung gefunden jedoch schaffe ich es nicht den Code für mich richtig anzupassen.
Was ich bisher habe:
Sub Ausblenden()
Dim i As Long
Columns("G:G").EntireColumn.Hidden = True
For i = 5 To 180
If Cells(i, 9)  "" Then
Columns("G:G").EntireColumn.Hidden = False
Exit Sub
End If
Next i
End Sub
Es wird mir jetzt Spalte G ausgebendet wenn von G5 bis G180 kein Wert enthalten ist.
Dass ist auch richtig so, ich möchte aber, dass auch Spalte H ausgeblendet wird, wenn von H5 bis H180 kein Wert enthalten ist. Das ganze soll bis Spalte YF gehen, daher ware es extrem aufwendig einen Code für jede Spalte zu schreiben
Kann mir jemand weiter helfen?
Vielen Dank im Voraus.
Sofie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden wenn Zellen leer sind
25.01.2018 11:58:18
yummi
Hallo Sofie,
kannst du mit 2 ineinander geschachtelten SChleifen machen:

Sub Ausblenden()
Dim i As Long
dim spalte as Long
'Columns("G:G").EntireColumn.Hidden = True
For spalte = 7 to 656
Columns(spalte & ":" & spalte).EntireColumn.Hidden = False
For i = 5 To 180
If Cells(i, spalte) = "" Then
Columns(spalte & ":" & spalte).EntireColumn.Hidden = True
i = 181    'sollte man mit continue machen, geht bei mir aber nicht
End If
Next i
next spalte
End Sub
gruß yummi
Anzeige
AW: Spalten ausblenden wenn Zellen leer sind
25.01.2018 12:10:17
Werner
Hallo Sofie,
so?
Public Sub Ausblenden()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
For i = 7 To 656
If WorksheetFunction.CountA(.Range(.Cells(5, i), .Cells(180, i))) = 0 Then
.Columns(i).Hidden = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Spalten ausblenden wenn Zellen leer sind
25.01.2018 12:22:29
Sofie
Hallo Werner
Vielen Dank für die schnelle Antwort, es funktioniert super :)
Yummi, dir auch vielen Dank, jedoch erhalzte ich bei dener Version eine Fehlermeldung.
Beste Grüße
Sofie
Gerne u. Danke für die Rückmeldung. o.w.T.
25.01.2018 12:23:26
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Spalten automatisch ausblenden, wenn Zellen leer sind


Schritt-für-Schritt-Anleitung

Um in Excel leere Spalten automatisch auszublenden, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Public Sub Ausblenden()
       Dim i As Long
       Application.ScreenUpdating = False
       With Worksheets("Tabelle1") ' Stelle sicher, dass der Blattname korrekt ist
           For i = 7 To 656
               If WorksheetFunction.CountA(.Range(.Cells(5, i), .Cells(180, i))) = 0 Then
                   .Columns(i).Hidden = True
               End If
           Next i
       End With
       Application.ScreenUpdating = True
    End Sub
  4. Passe den Blattnamen an, falls nötig.

  5. Führe das Makro aus: Drücke F5 oder gehe zu Ausführen > Sub/UserForm ausführen.

Mit diesem Code werden alle leeren Spalten von G bis YF ausgeblendet, wenn die Zellen in dem definierten Bereich leer sind.


Häufige Fehler und Lösungen

  • Fehlermeldung: "Push-Zellen nicht leer": Stelle sicher, dass der Zellbereich, den Du überprüfst, wirklich leer ist. Wenn nicht, überprüfe die Zellen auf versteckte Inhalte oder Leerzeichen.

  • Spalten werden nicht ausgeblendet: Überprüfe, ob der Blattname im Code korrekt ist. Eine falsche Angabe kann dazu führen, dass das Makro nicht die gewünschte Wirkung hat.

  • Makro funktioniert nicht: Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.


Alternative Methoden

Falls Du keine VBA-Lösung nutzen möchtest, kannst Du auch die Filterfunktion verwenden:

  1. Markiere die Daten.
  2. Gehe zu Daten > Filter.
  3. Klicke auf den Dropdown-Pfeil der Spaltenüberschrift und wähle Leere Zellen.

Dies ist jedoch keine permanente Lösung, da die Spalten nicht dauerhaft ausgeblendet werden.


Praktische Beispiele

Angenommen, Du hast folgende Daten in den Spalten G bis YF:

G H I ...
1

Wenn Du das Makro ausführst, werden die Spalten G, H und I ausgeblendet, da sie im Bereich von G5 bis I180 leer sind.


Tipps für Profis

  • Automatisiere den Prozess: Du kannst das Makro so einstellen, dass es beim Öffnen der Datei automatisch ausgeführt wird. Füge dazu den Code in Workbook_Open ein.

  • Verwende andere Kriterien: Modifiziere den Code, um Spalten auszublenden, die einen bestimmten Wert enthalten, oder um nur Zeilen auszublenden, wenn eine bestimmte Zelle leer ist.


FAQ: Häufige Fragen

1. Kann ich das Makro für bestimmte Spalten anpassen? Ja, Du kannst die Schleife anpassen, um nur bestimmte Spalten zu überprüfen, indem Du die Range im Code änderst.

2. Was passiert, wenn ich Daten in die leeren Spalten eingebe? Die ausgeblendeten Spalten erscheinen wieder, wenn Du das Makro erneut ausführst oder die Spalten manuell einblendest.

3. Ist das Makro mit allen Excel-Versionen kompatibel? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren. Achte darauf, dass Du die richtigen Einstellungen für Makros vornimmst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige