Ich bekomme den Fehler 1004 mit der Nachricht "Die PivotFields Eigenschaft des Pivot-Table Objektes kann nicht zugeordnet werden".
Ich habe den Aufbau der Pivot-Tabelle einmalig mit dem Makro-Rekorder aufgenommen, und wollte prüfen, ob alles klappt. Offenbar klappt nicht alles.
:-(
Vielleicht kann ja jemand einen Tipp geben:
Der Makro lautet:
Columns("B:E").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"GVL_KPI_MARGIN!C2:C5").CreatePivotTable TableDestination:="", TableName:= _
"Tabelle1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

' ab hier tritt der fehler auf xx
ActiveSheet.PivotTables("Tabelle1").AddDataField ActiveSheet.PivotTables( _
"Tabelle1").PivotFields("MARGIN01"), "Anzahl von MARGIN01", xlCount

With ActiveSheet.PivotTables("Tabelle1").PivotFields("RANK")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabelle1").PivotFields("GVL")
.Orientation = xlRowField
.Position = 1
End With
Range("A3").Select
ActiveSheet.PivotTables("Tabelle1").PivotFields("Anzahl von MARGIN01"). _
Function = xlSum