Pivotdetails auslesen per VBA

Hallo zusammen,
im Forum habe ich zwar viele Eintraege zur Erstellung von Pivot Tabellen gefunden, aber bei meinem Problem geht es genau anders herum.
Problemstellung:

Gegeben ist eine komplexe Pivottabelle (nur ein Sheet in der Datei ohne Detailsheet).

Verschiedene vordefinierte/gesetzte Filter (sind von mal zu mal anders gesetzt).

Meine Aufgabe ist es nun, alle ggf. gesetzten Filter zu loeschen und die Gesamtheit der Detaildaten (mehrere 1000 Datensaetze) zu verwerten.
Frage:
1) wie komme ich an die Detaildaten heran und kann sicherstellen, dass ich auf die ungefilterten Daten zugreife?
2) muss ich das Pivot erst über PivotDetails bearbeiten, oder komme ich auch direkt im Pivot an die ungefilterten Daten ran?
Leider kann ich aktuell keine Beispieldatei bereitstellen, versuche aber eine anonymisierte Version zu erstellen und hier abzulegen.
Evtl. habt Ihr ja bereits vorab einen Tipp, wie ich zu einer Loesung komme.
Ich wuerde mich sehr über ein paar Tipps zur Loesung meines Problemes freuen.
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo spezifischer - etwas spezifischer dürfte es schon sein ;-),
das folgende Makro setzt im aktiven Blatt für alle Pivot-Felder alle Elemente auf visible=True.
Karteileichen (Items ohen Daten) werden dabei gelöscht.
Gruß
Franz

'Erstellt unter Excel 2003
Sub PivotAllesAnzeigen()
Dim pvTab As PivotTable, pvField As PivotField, pvItem As PivotItem
Dim StatusCalc As Long
On Error GoTo Fehler
StatusCalc = Application.Calculation
Set pvTab = ActiveSheet.PivotTables(1)
If StatusCalc  xlCalculationAutomatic Then _
Application.Calculation = xlCalculationAutomatic
For Each pvField In pvTab.PageFields
pvField.CurrentPage = "(Alle)"
Next
For Each pvField In pvTab.RowFields
For Each pvItem In pvField.PivotItems
If pvItem.Visible = False Then pvItem.Visible = True
Next
Next
For Each pvField In pvTab.ColumnFields
For Each pvItem In pvField.PivotItems
If pvItem.Visible = False Then pvItem.Visible = True
Next
Next
pvTab.RefreshTable
Fehler:
With Err
Select Case .Number
Case 0 'kein fehler
Case 1004
If Not pvItem Is Nothing Then pvItem.Delete
Resume Next
Case Else
MsgBox "Fehler-nr.: " & .Number & vbLf & .Description
End Select
End With
If StatusCalc  Application.Calculation Then Application.Calculation = StatusCalc
End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivotdetails auslesen per VBA

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread