Ich erstelle viele Pivot-Tabellen aus der gleichen Arbeitsmappe aber mit unterschiedlichen Werten, folglich heißt jede Pivot-Tabelle anders und hat andere Felder.
Bei einigen Tabellen muss ich allerdings eine Gruppierung vornehmen und anschließend immer in der gleichen Reihenfolge die Werte in die Pivot-Feldliste reinziehen.
Der Makro Recorder zeigt mir das:
Range("A2:A6").Select
Selection.Group
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Reporter")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
"PivotTable6").PivotFields("Reporter"), "Anzahl von Reporter", xlCount
Kann mir jemand sagen, wie ich ihn umschreiben muss, damit ich es für jede beliebige Pivot-Tabelle nutzen kann?
Vielen Dank im Voraus