habe folgendes Problem, ich habe einen Makro zur Erstellung einer Pivot-Tabelle aufgezeichnet.
Hier der Programmteil:
Sub KostenSt()
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C1:C4", TableDestination:="[Pa2.xls]Tabelle2!R1C1", TableName _
:="Pivot-Tabelle6"
ActiveSheet.PivotTables("Pivot-Tabelle6").AddFields RowFields:="KostenSt"
With ActiveSheet.PivotTables("Pivot-Tabelle6").PivotFields("Saldo")
.Orientation = xlDataField
.Name = "Summe - Saldo"
.Function = xlSum
.NumberFormat = "0.00"
End With
Application.CommandBars("PivotTable").Visible = False
End Sub
Wenn ich jetzt den Dateinamen ändere funktioniert der makro nicht mehr bis ich "TableDestination:="[Pa2.xls]Tabelle2!R1C1"
den neuen Dateinamen zuweise.
Wie kann ich dies vermeiden, so das sich der Makro dynamisch den Dateinamen rauszieht oder wenns eine andere Datei ist sich automatisch auf diese bezieht???
Hoffe irgendjemand versteht mich und kann mir weiterhelfen
Gruß
Christine