Hallo VBA-Profis,
vielleicht könntet ihr mir bei einem kleinen Problem helfen, bei dem ich irgendwie nicht weiterkomme.
Ich möchte bei dem Aktivieren einer Pivot-Tabelle den Bereich der Datenquelle automatisch korrigieren.
Das klappt auch gut, nur möchte ich den Dateipfad und -namen variable gestalten.
Anbei mein aktueller Code:
...
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"H:DownloadsOptionsübersicht[Übersicht Optionen.xlsm]Daten-Pivot!C1:C5" _
, Version:=8)
ActiveWorkbook.RefreshAll
...

Den hervorgehobenen Teil würde ich gerne mit einer Variablen ersetzen wie zum Beispiel:
...
Dim Dateipfad As String
Dim Dateiname As String
Dateipfad = ThisWorkbook.Path
Dateiname = ThisWorkbook.Name
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Dateipfad & "" Dateiname"Daten-Pivot!C1:C5" _
, Version:=8)
ActiveWorkbook.RefreshAll
...
Das bekomme ich irgendwie nicht hin, bzw. sehe den Wald vor lauter Bäumen nicht.
Vielleicht geht es auch noch anders oder einfacherer?
Wäre toll wenn mir jemand einen Tipp geben könnte.
Danke schon einmal und Grüße
Jürgen