Datenquelle in Pivottabelle per VBA ändern

[stonemaus]

Hallo

Ich möcht die Datenquelle eines kopierten Tabellenblattes mit VBA andern, allerdings würde ich gerne einiges durch Variablen ersetzen.
Dieses habe ich mit dem Makrorekorder aufgezeichnet.

Sub Datenquelle_aenderm()

    ActiveSheet.ChartObjects("Diagramm 33").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\q050376\Desktop\[190327_Daily_Opti-Team_SLP.xlsm]29.03.19!R7C13:R100C25" _
        , Version:=xlPivotTableVersion15)

End Sub

Nun wäre mein Anliegen das der Pfad und der Dateiname der aktuelle Dateiname is , und der 29.03.19 das aktuelle Tabellenblatt ist.

Ich bitte um Eure Hilfe

[stonemaus]

Hallo Leute

Jetzt habe ich es selbst geschaft, und so hat es bei mir funktioniert.

Sub Datenquelle_aenderm1()
    
    Dim Dateiname As String, Pfad As String, Arbeitsblatt As String
    
    Dateiname = ActiveWorkbook.Name
    Pfad = ActiveWorkbook.Path
    Arbeitsblatt = ActiveSheet.Name

    
    ActiveSheet.ChartObjects("Diagramm 33").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Pfad & "\" & "[" & Dateiname & "]" _
        & Arbeitsblatt & "!" & "R7C13:R100C25", Version:=xlPivotTableVersion15)

End Sub

MfG Peter