Hallo Zusammen,
vielleicht könnte mir jemand helfen...
Ich habe 4 Pivot Tabellen mit gleicher Datenquelle. Die Pivots sind miteinander in einem Datensatz durch Berichtsverbindung verbunden.
Die Datenquelle zu 4 Pivots befindet sich im gleichen Excel aber in anderem Arbeitsblatt.
Die Datenquelle erweitert sich mit neuen Werten von Tang zu Tag, deswegen soll die Quelle aktualisiert werden.
Alles wird mit Makro durchgeführt.
Zur Aktualisierung sollen die Berichtsverbindungen rausgenommen werden, ansonsten geht's nicht.
Die Befehle dafür:
1. Schritt: Berichtsverbindungen rausnehmen
ActiveSheet.Shapes.Range(Array("Product")).Select
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.RemovePivotTable (ActiveSheet.PivotTables("PivotTable2"))
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.RemovePivotTable (ActiveSheet.PivotTables("PivotTable3"))
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.RemovePivotTable (ActiveSheet.PivotTables("PivotTable4"))
2. Schritt: Datenquelle mit LastRow und LastColumn aktualisieren
PtLastRow = Sheets("Datenquelle").Range("A" & Application.Rows.Count).End(xlUp).Row
PtLastColumn = Sheets("Datenquelle").Cells(1, Application.Columns.Count).End(xlToLeft).Column
Sheets("Pivots").PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase _
, SourceData:=Sheets("Datenquelle").Range(Sheets("Datenquelle").Range("A1"),Sheets("Datenquelle").Cells(PtLastRow, PtLastColumn)), Version:=8)
...dann die gleiche bei "PivotTable2", "PivotTable3" und "PivotTable4" durchführen.
3. Schritt: Berichtsverbindungen zurücksetzen
ActiveSheet.Shapes.Range(Array("Product")).Select
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.AddPivotTable (ActiveSheet.PivotTables("PivotTable2"))
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.AddPivotTable (ActiveSheet.PivotTables("PivotTable3"))
ActiveWorkbook.SlicerCaches("Datenschnitt_Product").PivotTables.AddPivotTable (ActiveSheet.PivotTables("PivotTable4"))
Mein Problem ist, dass nach dem 2. Schritt (Datenquelle aktualisieren) die Auflistung von Pivot2, 3 und 4 aus den Berichtsverbindungen verschwindet.
Also ich kann sie nicht mehr aufnehmen (Haken setzen), weil nur Pivot1 in den Berichtsverbindungen zu finden ist obwohl alle 4 Pivots die gleiche (neue) Datenquelle haben...
Die Makro gibt mir "Anwendungs- oder objektdefinierter Fehler" zurück.
Wenn ich alle oben geschriebenen Schritte manuell (ohne Makro) mache, so funktioniert es fehlerlos und in den Berichtsverbindungen sind alle 4 Pivots zu sehen.
Habt Ihr vielleicht eine Idee, wie ich die Makro ergänzen / korrigieren sollte, um die Berichtsverbindungen zurücksetzen zu können?
Vielen herzlichen Dank,
Zaky