Hallo zusammen,
ich ziehe mir per VBA aus 2 Spalten eine Pivot-Tabelle. In der Pivot-Tabelle möchte ich gerne die Daten aus der ersten Spalte als Zeilen haben und die Daten aus der zweiten Spalte daneben summiert. Ich bekomme allerdings nur eine Gesamtsumme. Woran könnte es liegen?
Hier der Codeausschnitt:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="R1C15:R" & zeile & _ "C16").CreatePivotTable TableDestination:="R1C19", TableName:="carton_pieces3"
With ActiveSheet.PivotTables("carton_pieces3").PivotFields("Summe von PCS")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("carton_pieces3").AddDataField ActiveSheet.PivotTables_
("carton_pieces3").PivotFields("Summe von PCS"), "Summe von Summe von PCS", xlSum
ActiveSheet.PivotTables("carton_pieces3").ColumnGrand = False
Bin für eure Hilfe dankbar!
Gruß,
Peter