Office: (Office 2016) Leere Spalten ausblenden

Helfe beim Thema Leere Spalten ausblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich möchte in einer Excel Datei alle Spalten über einen Button ausblenden, die ab der Zelle C8 vollkommen leer sind. Das soll auch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von MezzoMix, 22. April 2019.

  1. MezzoMix Neuer User

    Leere Spalten ausblenden


    Hallo,

    ich möchte in einer Excel Datei alle Spalten über einen Button ausblenden, die ab der Zelle C8 vollkommen leer sind. Das soll auch funktionieren, wenn ein Filter gesetzt wurde. Durch das Klicken des Buttons "einblenden" sollen dann wieder alle Spalten eingeblendet werden.

    Habe im Forum schon einen Beitrag gefunden, in dem ein ähnliches Problem behandelt wurde, aber leider kenne ich mich zu wenig aus um mein Problem zu lösen.

    Habe zum besseren Verständnis eine Beispieldatei angehängt.

    Bin für jede Hilfe dankbar!

    LG, Dani
     
    MezzoMix, 22. April 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Dani,

    das kannst du mit folgenden beiden Makros lösen:

    Code:
    Sub Ausblenden()
        Dim lngLetzte As Long
        Dim intLetzte As Integer
        Dim intSpalte As Integer
        lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
        intLetzte = IIf(IsEmpty(Cells(7, Columns.Count)), Cells(7, Columns.Count).End(xlToLeft).Column, Columns.Count)
        Application.ScreenUpdating = False
        For intSpalte = 3 To intLetzte
            If Application.CountA(Range(Cells(8, intSpalte), Cells(lngLetzte, intSpalte))) = 0 Then Columns(intSpalte).Hidden = True
        Next intSpalte
        Application.ScreenUpdating = True
    End Sub
    
    Sub Einblenden()
        Cells.EntireColumn.Hidden = False
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 23. April 2019
    #2
  3. MezzoMix Neuer User
    Hallo Karin,

    danke für deine schnelle Antwort! Habe die Makros eingefügt. Grundsätzlich funktioniert es. Aber wenn ich einen Filter z.B. beim Produkt setze, werden trotzdem alle Spalten betrachtet. Es sollen aber jene Spalten ausgeblendet werden, die nach dem Filtern leer sind.

    Kannst du mir da bitte nochmal helfen?

    LG, Dani
     
    MezzoMix, 23. April 2019
    #3
  4. Beverly
    Beverly Erfahrener User

    Leere Spalten ausblenden

    Hi Dani,

    du hattest geschrieben: "die ab der Zelle C8 vollkommen leer sind" - das bedeutet, dass ALLE Zellen der betreffenden Spalte leer sind außer der Überschrift. Du meinst aber etwas anderes: "dass nach dem Filtern keine leeren Spalten angezeigt werden". Ändere den Code wie folgt:

    Code:
    If Application.CountA(Range(Cells(8, intSpalte), Cells(lngLetzte, intSpalte)).SpecialCells(xlCellTypeVisible)) = 0 Then Columns(intSpalte).Hidden = True
    Bis später,
    Karin
     
    Beverly, 23. April 2019
    #4
  5. MezzoMix Neuer User
    Hi Karin,

    sorry das hatte ich schlecht beschrieben.
    Aber jetzt funktioniert es perfekt!

    Vielen Dank für deine Hilfe!!!

    LG, Dani
     
    MezzoMix, 23. April 2019
    #5
Thema:

Leere Spalten ausblenden

Die Seite wird geladen...
  1. Leere Spalten ausblenden - Similar Threads - Leere Spalten ausblenden

  2. In Spalte erste Leere Spalte dann Wert/Text ausgeben

    in Microsoft Excel Hilfe
    In Spalte erste Leere Spalte dann Wert/Text ausgeben: Hallo, schon mal Danke für die Hilfe =) Ich würde gern in meiner kleinen Datenbank, nach einem Eintrag eines Kunden, die letzte Kundennummer des eingetragene Kunden in einer Zelle ausgeben...
  3. Prüfung ob Spalte leer

    in Microsoft Excel Hilfe
    Prüfung ob Spalte leer: Hallo alle zusammen, ich habe ein fast gut funktionierendes Marko zusammen gebastelt. Verschiedene Spalten werden mit Text in Spalten in tatsächliche Zahlen umgewandelt, in eine intelligente...
  4. Spalten löschen wenn leer

    in Microsoft Excel Hilfe
    Spalten löschen wenn leer: Hallo, ich bin neu und suche für eine übersichtlichere Tabelle die Möglichkeit, Leere Spalten zu löschen. Ich habe eine Tabelle1 die von A1-AG3000 geht. Es müssen nicht überall Daten stehen. Dann...
  5. Bis zur ersten leeren Spalte zählen

    in Microsoft Excel Hilfe
    Bis zur ersten leeren Spalte zählen: Hallo, in meiner Tabelle habe ich immer via Makro durchzählen lassen, welche die letzte Zeile einer Spalte ist: Code: letztezeile = Cells(Rows.Count, 1).End(xlUp).Row Nun möchte ich unter der...
  6. VBA für Excel 2013:Leere Zeilen und Spalten ausblenden

    in Microsoft Excel Hilfe
    VBA für Excel 2013:Leere Zeilen und Spalten ausblenden: Hallo. Ich möchte über ein Makro in einer Datei alle leeren Zeilen und Spalten ausblenden. Ich habe zwar schon einiges gefunden aber nur alte Makros. Nicht für den max. Bereich von 1048576 Zeilen...
  7. Spalten ausblenden wenn Zelle leer

    in Microsoft Excel Hilfe
    Spalten ausblenden wenn Zelle leer: Hallo zusammen! Ich brauche ganz dringend Hilfe. Habe eine Tabelle mit "falschen" Inhalten eingefügt. Es soll folgendes gemacht werden können: Mit dem Filter wähle ich die Kategorie aus, die ich...
  8. Wenn Zellwert in G5 leer, dann Spalte K ausblenden

    in Microsoft Excel Hilfe
    Wenn Zellwert in G5 leer, dann Spalte K ausblenden: Hallo liebe Leute, wie der Titel bereits sagt, brauche ich Hilfe bei einem Makro, dass mir automatisch eine Spalte ausblendet, wenn in ein Zellwert in einer anderen Spalte "leer" ist. Ich habe...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden