Pivot-Tabelle mit 2 Bereichen (VBA)
Peter
folgendes Problem: Ich habe ein Makro aufgezeichnet, mit dem ich eine Pivot-Tabelle über 2 Bereiche erstelle. Nun möchte ich das Makro ausführen (habe nichts daran geändert), und es kommt die Fehlermeldung "Objekt erforderlich". Verstehe nicht, wieso. Was passt nicht am Code?
ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:=Array(Array(" _
carton_pieces!C13:C14", "Element1"), _
Array("carton_pieces!C15:C16", "Element2")), Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:= _
"[Datei.xlsm]carton_pieces!R3C17", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion12
ActiveSheet.PivotTables("PivotTable1").DataPivotField.PivotItems("Anzahl von Wert"). Position = _
1
ActiveSheet.PivotTables("PivotTable1").PivotFields("Spalte").Orientation = xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von Wert")
.Orientation = xlRowField
.Position = 2 'Hier kommt die Fehlermeldung "Objekt erforderlich"
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables _
("PivotTable1").PivotFields("Zeile"), "Anzahl von Zeile", xlCount
ActiveSheet.PivotTables("carton_pieces1").ColumnGrand = False
ActiveSheet.PivotTables("carton_pieces1").RowGrand = False
Bin für eure Hilfe und Tipps sehr dankbar!
Viele Grüße,
Peter