Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Extrahieren von Pivotdaten mittels VBA

Extrahieren von Pivotdaten mittels VBA
08.11.2006 10:10:50
HeinzS
Hallo liebe Excelgemeinde,
kann mir wer einen Tipp geben, wie ich mittels VBA es schaffen, alle daten einer bestehenden Pivottabelle zu extrahieren (also das selbe als wenn ich im Totalfeld einen doppelklick mache, und die Daten dann in einem neuen Sheet extrahiert zur Verfügung stehen).
bin für jeden Tipp sehr dankbar!!!
Lg,
Heinz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Danke konnte es gerade selber lösen.!!
08.11.2006 10:37:54
HeinzS
Noch einen schönen Tag.
Lg, Heinz
AW: und die Lösung?
08.11.2006 18:34:12
Erich G.
Hallo Heinz,
das ist sehr schön für dich!
Würdest du deine Lösung bitte auch all denen zur Verfügung stellen, die bei der Recherche diesen Thread finden?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: und die Lösung?
09.11.2006 07:59:30
HeinzS
Hallo Erich,
ich habe es so gelöst. Ist wahrscheinlich nicht die beste Lösung aber funktioniert.

Sub Pivot_Extract()
End Sub

Dim pt As PivotTable
Dim rf As PivotItem
Dim ActSheet As Worksheet
Sheets("Pivot_Existing").Select
Range("B6").Select
Set ActSheet = ActiveSheet
Set pt = ActiveSheet.PivotTables(1)
For Each rf In pt.RowFields("Parent").PivotItems
pt.PivotSelect (rf.Name), xlDataOnly
Selection.ShowDetail = True
ActiveSheet.Name = "Sheet1"
Sheets(ActSheet.Name).Select
Next
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige