Liebe VBA-Cracks,
gerne würde ich die Quelle aller PIvot-Tabellen in einem Worksheet verändern - hierzu zwei fragen:
1) Grundsätzlich funktioniert mein quellen Wechsel der Pivot nicht - untenstehender Code wirft eine Fehlermeldung aus - woran könnte es liegen?
Sub Schaltfläche1_Klicken()
Worksheets("SG-C - Finance und Ops").PivotTables(PivotTable3).ChangePivotCache _
ThisWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, SourceData:=Worksheets("SG-I - Financial and Ops KPIs").Range("$A:$F"))
End Sub
2) Wie kann ich anstannt auf einer Range auf eine defininerte Tabelle des Namens "SGFinance" verweisen?
3) Ich habe über das Dokument hinweg ca. 15 Pivot-Tabellen und würde gerne über sämtliche Pivot-Tabellen obenstehenden Code anwenden, ohne für jede Tabelle eine einzelne Funktion zu schreiben. Hat hier jemand einen Tipp, wie ich dies am einfachsten bewerkstelligen Könnte?
Viele Grüße
Christian Weiß
|