Pivot-Tabelle per Makro bearbeiten.
02.10.2005 21:30:38
Gustav
suche eine Möglichkeit die Ergebniswerte einer Pivot-Tabelle der Reihe nach automatisch in ein neues Blatt zu expandieren. (Wie bei einem Doppelklick auf das Ergebnis)
Bsp.
Summe von Wert/BWähr
Auftrag Ergebnis
1000050 30
1000168 -45
Es soll zunächst ein Blatt mit der Bezeichnung "1000050" mit den Einzelwerten der Database der Pivot-Tabelle erzeugt werden.
Danach soll die zweite Position der Pivot-Tabelle genauso als Blatt "1000168" erzeugt werden.
Habe schon eine Möglichkeit gefunden. Nur ist sie sehr lang und Änderungen in der Pivot-Tabelle müssen im Code angepasst werden.
Kann mir jemand diesen Code mit Variabeln oder Schleifen versehen, so dass jedes Ergebnisfeld der Pivot-Tabellen nacheinander als eigenes Blatt erzeugt wird auch wenn sich die Werte des Feldes "Auftrag" verändern. (z.B. statt 1000168 1009999 etc)
Scheitere wohl an der Tatsache dass es sich um eine Pivot-Tabelle handelt.
Mit einer normalen Tabelle schaffe ich es...
Hier mein unflexibler Code:
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotSelect "'1000050'",
xlDataOnly
Selection.ShowDetail = True
ActiveSheet.Name = "1000050"
Sheets("Pivot").Select
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotSelect "'1000168'",
xlDataOnly
Selection.ShowDetail = True
ActiveSheet.Name = "1000168"
Sheets("Pivot").Select
Vielen Dank für die Hilfe.
Gustav