Makro: Tabellennamen automatisch übernehmen
20.02.2014 11:38:13
Hewad
ich habe mehrere Pivottabellen und habe soeben ein Makro aufgezeichnet, den ich bei allen anderen Pivots anwenden möchte. Mein Problem besteht darin, dass bei der Aufzeichnung nur der aktuelle Pivottabellenname ("PivotTable1") berücksichitgt wird. Wie kann man den Namen dynamisch gestalten, sodass der VBA-Code die ausgewählte Pivottabelle anspricht?
Vielen Dank im Voraus!
Hier mein aufgezeichneter Code:
'ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Jan2"), "Anzahl von Jan2", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von Jan2")
.Caption = "Summe von Jan2"
.Function = xlSum
End With