Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
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
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

89 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Pivot-Tab: Leere ausblenden?
Florian

Hallo liebes Forum,
hätte eine Frage zu Pivottabelle (VBA-Code!):
Gibt es einen Befehl, um die Summen der "leeren" Zellen auszublenden/nicht anzuzeigen? Benutzer soll nicht durc¨h unwichtige Daten überlastet werden (siehe Bsp gelbe Zellen).
Besten Dank, Florian
https://www.herb...
19.11.2008 14:45:00
Thread-ID: 1026052
6 Beiträge
Pivottabelle-leere Felder
Jojo

Hallo zusammen,
kann mir jemand erklären, wie in einer Pivottabelle jede Zelle mit ihrer Bezeichnung ausgefüllt werden kann.
Beispiel: Ich habe die Merkmale Region, Profitcenter, Name und einen Betrag. Erstelle ich nun eine Tabelle in diesem Aufriss, so wird z.B. in Spalte A die Region...
20.01.2009 15:00:49
Thread-ID: 1041851
3 Beiträge
Anzeige
PivotCharts - Datenbeschriftung
thomas

Hallo,
ich habe mal eine dumme Frage. Ich habe eine Tabelle in Excel (Liste).
Auf dieser Basis habe ich eine Pivot-Tabelle und ein PivotChart erstellt. Das Pivotchart ist ein Kuchendiagramm. Ich habe eine Datenbeschriftung (Prozensatz) eingefügt. Wenn ich nun die Daten in dem PivoChart...
04.02.2009 10:45:29
Thread-ID: 1046928
2 Beiträge
Pivotchart - Datentabellen- Summe
Jemp

Hallo alle zusammen.
Ich habe eine Pivot chart erstellt wo untendrunter die Datentabelle sichtbar ist.
Gibt es eine Möglichkeit in dieser Datentabelle. die Summierung mit anzuzeigen sowie sie auch auf der einzelen Pivottabelle angezeigt werden
Vielen Dank
Jemp
25.05.2009 12:28:21
Thread-ID: 1077123
2 Beiträge
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 Beiträge
leere Zellen ausblenden
oli.p

Hallo zusammen...
Bin (mal wieder) fast am verzweifeln.
Für eine Grafik möchte ich die Zellen mit 0,00 ausblenden (sonst gibt es so hässliche Ausreißer).
Habe schon das Häkchen (Optionen) für das Anzeigen der Nullwerte entfernt.
Und mit der Formel: =WENN(INDEX(SH!I:I;(ZEILE(SH!...
21.08.2009 12:22:23
Thread-ID: 1097701
8 Beiträge
leere Zellen im Listenfeld ausblenden
ben

Hallo zusammen,
Ich habe ein Listenfeld. Dieses ist mit einem Eingabenbereich (A1:A5000) verknüpft. Das Listenfeld zeigt alle Werte im Bereich A1 bis A5000 an, jedoch auch die Zellen die leer sind. Folge ist, dass das Listenfeld riesen groß wird (5000 Werte), obwohl nur 200 Zellen beschrieb...
01.09.2009 09:16:09
Thread-ID: 1099747
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
5
2
3
1
1
5
7
4
8
4
2
5
3
4
2
5
5
3
12
10
2
5
2