PivotTabelle: SourceData-Angabe relativ möglich ?

Hallo Excel-Cracks,
ich habe eine Frage:
Ich erzeuge wie folgt in Datei A eine Pivottabelle (und verweise auch anschließend mit einem Chart darauf)
Set rngSourceDate = Range(wksErgebnisuebersicht.Cells(1, intFirstPivotColumn), _
wksErgebnisuebersicht.Cells(lngLastRow, intLastPivotColumn))
Set rngTableDestination = Range(wksPivotAnalyse.Cells(1, 1), wksPivotAnalyse.Cells(1, 1))
Set PT = wksPivotAnalyse.PivotTableWizard(SourceType:=xlDatabase, _
SourceData:=rngSourceDate, _
TableDestination:=rngTableDestination, _
TableName:=strPTName)
Das funktioniert einwandfrei.
Nun kopiere ich die Blätter "wksErgebnisuebersicht" und "wksPivotAnalyse" in eine neue Datei B.
Die Datenquelle für die Pivottabelle liegt nach der Kopie aber immer noch in Datei A.
Dadurch ist es mir nicht möglich in Datei B im Blatt "wksErgebnisuebersicht" Änderungen vorzunehmen und anschließend das Pivotchart zu aktualiseren.
Hat jemand eine Idee, wie ich dafür sorgen kann, daß ich mit Sourcedata auf das neue (kopierte) Arbeitsblatt verweisen kann ?
Am schönsten wäre eine Art relativer Bezug z.B. auf "thisWorkbook", der automatisch auf die jeweilge Datei verweist.
Wie immer bin ich Euch für jede Antwort dankbar !
Viele Grüße
Zacharias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Zacharias,
du muss nach dem Kopiervorgang in der Datenquelle der Pivottab der Kopie den Verweis auf die Quelle entfernen.
Wenn du die Prozedur für den Kopiervorgang wie folgt gestaltest, dann wird die Verknüpfung der Pivot in der Kopie aufgehoben. Ansonsten muss du von Hand den Assistenten in der Pivot der Kopie starten und in der Datenquelle (mehrfach zurück wählen) den Verweis auf die Quell-Mappe entfernen.
Gruß
Franz


Sub PivotPlusDatenKopieren()
Dim wbQuelle As Workbook, wbKopie As Workbook
Dim wksQuellePT As Worksheet, wksQuelle As Worksheet
Dim objPTQuelle As PivotTable, objPTKopie As PivotTable
'Quell-Objekte setzen
Set wbQuelle = ActiveWorkbook
With wbQuelle
Set wksQuelle = .Worksheets("Tabelle3")   'Daten-Quelle
Set wksQuellePT = .Worksheets("Tabelle4") 'Pivotdaten-Blatt-Quelle
Set objPTQuelle = wksQuellePT.PivotTables(1)
End With
'Quell-Tabellen kopieren
wbQuelle.Worksheets(Array(wksQuelle.Name, wksQuellePT.Name)).Copy
'Kopie-Objekte setzen
Set wbKopie = ActiveWorkbook
Set objPTKopie = wbKopie.Worksheets(wksQuellePT.Name).PivotTables(1)
'DatenQuelle in Kopie aus Quelle übernehmen
objPTKopie.SourceData = objPTQuelle.SourceData
End Sub

Beliebteste Forumthreads (12 Monate)

PivotTabelle: SourceData-Angabe relativ möglich ?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread