Hallo zusammen,

ich kopiere aus meiner Excel per VBA die Pivot Tabellenblätter "CCtr Overview" und "... Detail" samt deren Quellen ("Data Overview" & "Data Rohdaten") in eine neue Mappe.

Das doofe ist, dass der Bezug der Pivots sich nicht auf die neu erstellte Datei bezieht (obwohl die Daten bzw. Tabellenblätter ja da sind bzw. mitkopiert wurden), sondern auf die ursprüngliche Datei zielt. Gibt es einen Weg der Pivot zu verklickern, dass sie sich immer auf die "Data" Tabellenblätter der aktuellen Arbeitsmappe bezieht und nicht auf die der ursprünglichen Quelldatei?

Herzlichen Dank für eure Mithilfe und ein schönes verlängertes Wochenende,
Ulski

P.S.: Anbei der Kopiercode.


Sheets(Array("CCtr Overview", "CCtr Detail View", "Data Overview", "Data Rohdaten" _
)).Select
Sheets("Data Overview").Activate
Sheets(Array("CCtr Overview", "CCtr Detail View", "Data Overview", "Data Rohdaten" _
)).Copy

For Each tblPivot In ActiveWorkbook.PivotTables 'Alle Pivots aktualisieren
tblPivot.RefreshTable
Next tblPivot

ActiveWorkbook.SaveAs Filename:=Speicherort & Month & "/CCtr_Report_" & CCID & "_" & Format(Now, "YYYYMMDD hhmm") & ".Xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close