Per VBA Pivot Datenquelle auf andere Piv.umstellen

Hallo werte Mitstreiter,
meine VBA Kenntnisse sind bescheiden und eingerostet, aber offensichtlich hält sich hier im Büro noch hartnäckig die Meinung, dass ich immer noch den schwarzen Künsten fröhne.
Ich wurde gebeten ein kleines VBA Makro zu schreiben, welches in einer Excel Datei, die mehrere Pivot-Tabellen enthält, die erste Pivot Tabelle zur Datenquelle aller anderen Pivot Tabellen macht. Genauso, wie man das bei Assistenten via: "Where is the data that you want to analize? - Another PivotTable report or PivotChart report" macht.
ich bin mir sicher, da gibts eine einfache Lösung, aber ausser Fehlermeldungen habe ich nichts zusammengebracht. Sogar, wenn ich das händisch mit eingeschaltenem Macrorekorder mache und dann einfach abspiele gibts einen Fehler.
Schön wärs, wenn die lösung 2003/2007/2010 kompatibel ist.
Ich bitte inständigst um Erleuchtung
Liebe Grüsse aus Wien
Georg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Georg,
diesen Menüpunkt gibt es in dieser Form im Assisten für Pivots unter Excel 2010 nicht mehr.
Wenn alle Pivottabellen die gleiche Datenquelle benutzen sollen, dann kann man das mit folgendem Makro umsetzen - zumindest dann, wenn auf eine Exceltabelle als Quelle zugegriffen wird.
mfg
Franz

Sub Pivottables_Same_Cache()
Dim objCache As PivotCache
Dim pvMasterPivot As PivotTable, pvSlavePivot As PivotTable
Dim wks As Worksheet, wksMasterPivot As Worksheet
Set wksMasterPivot = ActiveWorkbook.Worksheets("Tabelle3")       'Blattname anpassen
Set pvMasterPivot = wksMasterPivot.PivotTables(1)   'ggf. Nr. anpassen oder durch _
Pivottable-Name in Anführungszeichen ersetzen.
Set objCache = pvMasterPivot.PivotCache
For Each wks In ActiveWorkbook.Worksheets
For Each pvSlavePivot In wks.PivotTables
If wks.Name  wksMasterPivot.Name _
Or (wks.Name = wksMasterPivot.Name _
And pvSlavePivot.Name  pvMasterPivot.Name) Then
pvSlavePivot.PivotCache.SourceData = objCache.SourceData
End If
Next
Next
End Sub

'Datenquelle ist eine Exeltabelle 'pvSlavePivot.PivotCache.SourceData = objCache.SourceData 'Datenquelle ist Tabelle in einer Accessdatenbank oder Exceltabelle pvSlavePivot.ChangePivotCache (wksMasterPivot.Name & "!" & pvMasterPivot.Name)

Beliebteste Forumthreads (12 Monate)

Per VBA Pivot Datenquelle auf andere Piv.umstellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per VBA Pivot Datenquelle auf andere Piv.umstellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread