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

Forumthread: Pivot Tabelle - Spalten ausblenden

Pivot Tabelle - Spalten ausblenden
Stefan
Hallo,
Beispielhaft sei folgende Datei wie angehangen

Die Datei https://www.herber.de/bbs/user/74418.xls wurde aus Datenschutzgründen gelöscht


Ich habe hierbei folgendes Problem:
Ich möchte eine Methode haben, wie ich all die Produkte (Spalten) ausblenden kann, in denen das Material X nicht verwendet wird
Wähle ich z.B. Materialname "name 12" aus, soll nur die Spalte "O" angezeigt werden (die, wo das X ist)
Die Originaldatei ist wesentlich größer und es wird dadurch sehr unübersichtlich wenn man sich immer erst durch die Datei scrollen muss, bis man das "X" gefunden hat
Ich denke eigentlich das ganze müsste mit einer Pivot Tabelle funktionieren aber leider kenne ich mich damit gar nicht aus und würde mich über Unterstützung freuen
Vielen Dank im Voraus
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 16:08:35
fcs
Hallo Stefan,
mit einer Auswertung per Pivottabellenbericht geht es meines Wissens nicht.
Mit einer Hilfszeile, in der die sichtbaren Zeilen auf das Material per benutzerdefinierter Funktion ausgewertet werden und Makros zum Aus-/Einblenden der Spalten geht es.
Gruß
Franz
https://www.herber.de/bbs/user/74422.xls
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 16:44:19
Stefan
Hallo Franz,
zunächst einmal danke für deine Super Hilfe.
Ich hab das ganze mal ausprobiert und in deiner Datei klappts Super
Öffne ich aber meine Originaldatei und füge die Schaltflächen/Formeln und Makros hinzu, so scheitert er schon an der Funktion "Zaehlensichtbar"
Das scheint keine Standard Excel Formel zu sein oder? Kann ich die irgendwie auch in meiner Originaldatei verfügbar machen?
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 16:54:14
fcs
Hallo Stefan,
damit die benutzerdefinierte Funktion verfügbar wird, muss du sie in deiner Datei im VBA-Editor in ein allgemeines Modul kopieren. Evtl. hast du sie unter einem Tabellenmodul eingefügt, was man nicht machen sollte.
Am einfachsten kopierst du im VBA-Editor das komplette Modul1 per Drag and Drop aus meiner in deine Datei. Falls bei dir schon Modul1 vorhanden, dann vor dem Kopieren das Modul in meiner Datei umbenennen.
Anschließend sollte die Funktion verfügbar sein und du kannst auch die Makros zuweisen.
Gruß
Franz
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 17:01:10
Stefan
Hallo Franz,
ja das war genau das Problem, allerdings hab ich ein neues
Wenn ich auf die Schaltflaechen klicke tut sich nichts
die Funktion zaehlen funktioniert, er zeigt mir oben also die Anzahl an aber wenn ich dann auf ausblenden klicke bleiben alle Spalten geöffnet
Könnte das an der größe der Datei liegen?
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 17:27:02
fcs
Hallo Stefan,
die Größe der Datei sollte keine Rolle spielen. Da dauert höchstens das Neuberechnen der Werte etwas länger, wenn die Auto-Filter-Auswahl geändert wird.
Passe die folgende Zeile an:
  For Spalte = 4 To .Cells(2, .Columns.Count).End(xlToLeft).Column

ändern in
  For Spalte = 4 To .Cells(Zeile, .Columns.Count).End(xlToLeft).Column
Evtl. sind bei dir in Zeile 2 keine Daten und die letzte Spalte mit Daten wird falsch ermittelt.
Wenn die Formeln nicht in Zeile 1 stehen, dann muss du den Wert in der entsprechenden Code-Zeile anpassen.
Gruß
Franz
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
15.04.2011 17:38:30
Stefan
Hallo Franz,
hab die Zeile gerade mal durch deine neue ausgetauscht, aber da hat sich nichts geändert
er blendet jetzt immer Spalte "D" aus aber alle anderen bleiben stehen
Aber die Originaldatei ist genau so aufgebaut wie meine Beispieldatei, bloß die Überschriften sind bissel anders und es gibt halt mehr Zeilen und Spalten (Spalten gehen bis IV und Zeilen sinds über 600
die Zaehlensichtbar hab ich angepasst um die entsprechenden Zeilen und habs einfach kopiert bis in Spalte IV. Das funktioniert auch überall bloß die Buttons mit dem aus/einblenden halt noch nicht
Das Modul hatte ich auch per Drag&Drop kopiert so wie du geschrieben hattest
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
16.04.2011 09:02:00
fcs
Hallo Stefan,
in deiner Tabelle sind alle Spalten bis zur letzten mit Daten belegt. Da funktioniert die von mir verwendete Methode zur Ermittlung der letzten Spalte für die For-Next-Schleife nicht korrekt.
so gehtes:
  For Spalte = 4 To IIf(.Cells(Zeile, .Columns.Count)  "", _
.Columns.Count, .Cells(Zeile, .Columns.Count).End(xlToLeft).Column)

Manchmal dauert es eben, bis alle möglichen Fälle in einer Prozedur berücksichtigt sind.
Gruß
Franz
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
16.04.2011 10:39:56
Stefan
Hallo Franz,
hab den Code eben nochmal entsprechend angepasst, klappt aber immer noch nicht
So wie es ausschaut klappt es nur, solange Treffer in den Spalten A-Z gefunden werden
Findet er z.B. einen Treffer in der Spalte AH (z.B. bei Name 1) dann klappt es nicht mehr. Er blendet alles korrekt bis zur Spalte S aus (zweiter Treffer) danach bleiben alle Spüalten weiterhin Sichtbar (nächster Treffer wäre Spalte AH)
Kann die Datei leider nicht hochladen da auf 300 KB begrenzt
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
18.04.2011 06:33:42
fcs
Hallo Stefan,
în meiner relativ kleinen Testdatei mit ca. 35 Zeilen funktioniert es.
Bei einer Datei mit vielen Zeilen könnte es sein, dass evtl. die Neuberechnung der Daten noch nicht abgeschlossen ist, wenn du das Makro startest. Füge im Code eine Zeile zur Neuberechnung ein.
  With wks
.Calculate
For Spalte = 4 To IIf(.Cells(Zeile, .Columns.Count)  "", _
.Columns.Count, .Cells(Zeile, .Columns.Count).End(xlToLeft).Column)

Ansonsten komprimiere deine Datei zu einer ZIP-Datei und schicke sie mir per E-Mail.
Meine E-Mailadresse findest du hier unter Forums-Seiten -- Profile -- Profilliste.
Gruß
Franz
Anzeige
AW: Pivot Tabelle - Spalten ausblenden
18.04.2011 09:44:08
Stefan
Hallo Franz,
ja scheint echt so gewesen zu sein, dass der noch nicht alles berechnet hatte
jetzt klappts super
Dankeschön
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pivot Tabelle - Spalten ausblenden leicht gemacht


Schritt-für-Schritt-Anleitung

  1. Pivot Tabelle erstellen: Öffne deine Excel-Datei und wähle die Daten aus, die du in der Pivot Tabelle verwenden möchtest. Gehe zu „Einfügen“ > „PivotTable“. Wähle den Standort für die Pivot Tabelle aus und klicke auf „OK“.

  2. Felder hinzufügen: Ziehe die relevanten Felder in den Bereich „Zeilen“ oder „Spalten“. Achte darauf, dass du die Spalte mit dem Materialnamen in den Zeilenbereich ziehst.

  3. Leere Spalten ausblenden: Um leere Spalten in der Pivot Tabelle auszublenden, klicke mit der rechten Maustaste auf die Pivot Tabelle. Wähle „PivotTable-Optionen“ und gehe zum Tab „Layout & Format“. Aktiviere die Option „Leere Zeilen nach dem letzten Eintrag anzeigen“ und deaktiviere „Leere Zeilen in PivotTable anzeigen“.

  4. Makros für das Ausblenden verwenden: Wenn du eine größere Datei hast und bestimmte Spalten je nach Auswahl ausblenden möchtest, kannst du VBA-Makros verwenden. Füge den folgenden VBA-Code in ein Modul ein:

    Sub SpaltenAusblenden()
        Dim Spalte As Long
        Dim letzteSpalte As Long
        letzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
    
        For Spalte = 1 To letzteSpalte
            If Cells(1, Spalte).Value = "" Then
                Columns(Spalte).Hidden = True
            End If
        Next Spalte
    End Sub
  5. Schaltflächen hinzufügen: Um das Ausblenden zu steuern, kannst du Schaltflächen in deinem Arbeitsblatt einfügen. Füge eine Schaltfläche hinzu und weise das Makro „SpaltenAusblenden“ zu.


Häufige Fehler und Lösungen

  • Fehler: Die Schaltflächen funktionieren nicht.
    Lösung: Überprüfe, ob das Makro korrekt zugewiesen ist und ob die Daten im richtigen Format vorliegen.

  • Fehler: Alle Spalten bleiben sichtbar, auch wenn sie leer sind.
    Lösung: Stelle sicher, dass die Formel zur Ermittlung der letzten Spalte in deinem VBA-Code korrekt ist. Nutze:

    For Spalte = 4 To IIf(.Cells(Zeile, .Columns.Count) = "", _
    .Columns.Count, .Cells(Zeile, .Columns.Count).End(xlToLeft).Column)

Alternative Methoden

  • Filtern: Du kannst auch die Filteroption in der Pivot Tabelle nutzen, um nur die relevanten Daten anzuzeigen. Klicke auf den Dropdown-Pfeil in der Kopfzeile und wähle die gewünschten Materialien aus.

  • Datenquelle bearbeiten: Manchmal ist es einfacher, die Datenquelle selbst zu bearbeiten, bevor du die Pivot Tabelle erstellst. Entferne nicht benötigte Spalten, bevor du die Pivot Tabelle generierst.


Praktische Beispiele

  • Beispiel 1: Du hast eine Liste von Produkten mit Materialangaben. Du möchtest nur die Produkte sehen, die mit „Material X“ gekennzeichnet sind. Erstelle eine Pivot Tabelle und filtere nach „Material X“ in den Zeilen.

  • Beispiel 2: Du hast leere Spalten in deiner Pivot Tabelle, die du nicht sehen möchtest. Nutze die oben genannten VBA-Skripte, um diese leeren Spalten auszublenden und die Übersichtlichkeit zu erhöhen.


Tipps für Profis

  • Pivot Chart: Nutze Pivot Charts, um visuelle Darstellungen deiner Daten zu erhalten. Du kannst auch die Daten in deinem Pivot Chart anpassen, um leere Werte auszublenden.

  • Leere Zellen: Um leere Zellen in der Pivot Tabelle auszublenden, stelle sicher, dass du die Option „Leere Felder ausblenden“ aktivierst.

  • VBA-Optimierung: Optimiere deinen VBA-Code, um die Geschwindigkeit zu erhöhen, besonders bei großen Datenmengen. Füge .Calculate ein, um sicherzustellen, dass alle Berechnungen abgeschlossen sind.


FAQ: Häufige Fragen

1. Wie kann ich leere Zeilen in einer Pivot Tabelle ausblenden?
Du kannst die Option „Leere Zeilen ausblenden“ in den PivotTable-Optionen aktivieren oder VBA verwenden, um dies zu steuern.

2. Warum werden einige Spalten nicht ausgeblendet?
Stelle sicher, dass die Bedingungen in deinem VBA-Code korrekt formuliert sind und dass die Daten in der entsprechenden Zeile verfügbar sind.

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