Liebe Spezies,
ich kenne mich nicht besonders gut aus mit VBA (habe mich in einem Semester Wirtschaftsinformatik damit beschäftigt und bin froh gewesen, wenn überhaupt irgendwas funktioniert hat!), möchte aber nun mit Hilfe von VBA eine Pivot-Tabelle erzeugen. Diese soll wie folgt aussehen:
Count of PART Column Labels
Row Labels E O L Grand Total
P01
P02
P03
P04
P07
P10
P11
P12
(blank)
Grand Total
Die Daten sollen aus einem anderen Arbeitsblatt („Data“) gezogen werden und es sollen die Spalten „FAMILY_CODE“ (Ausgabe in Zeilenbeschriftung), „DELIVERY STATUS“ (Ausgabe in Spaltenbeschriftung) und „Count of PART“ (Ausgabe in Werte) aufgeführt werden.
Bisher habe ich den folgenden VBA-Code zusammengebastelt, der leider nicht funktioniert:
Sub CreatePivotTable()
Dim ptCache As PivotCache
Dim ptTable As PivotTable
Dim i As Integer
'Alle Pivottabellen des aktiven Blattes löschen
With ActiveSheet
For Each ptTable In .PivotTables
ptTable.TableRange2.Delete
Next ptTable
End With
'Neue Pivottabelle mit dynamischer Zeilenzahl erstellen
Set ptCache = ActiveWorkbook.PivotCaches.Add
(SourceType:=xlDatabase, SourceData:="Data!PART:DELIVERY_STATUS" & ActiveSheet.UsedRAnge.Rows.Count)
'Pivottabelle auf aktuellem TAbellenblatt erstellen
Set ptTable = ptCache.CreatePivotTable
(TableDestination:=ActiveSheet.Range("A1"), TableName:="MyPivotTable")
With ptTable
.PivotFields("Count of PART").Orientation = x1PageField
.PivotFields("FAMILY_CODE").Orientation = xlRowField
.PivotFields("DELIVERY_STATUS").Orientation = xlColumnField
.PivotFields("Total").Orientation = x1DataField
End With
Könnt ihr mir bitte helfen und sagen, woran es liegt? Wahrscheinlich habe ich die Quellen nicht richtig angegeben, oder? Ich habe aber leider überhaupt keine Idee wie ich das ändern muss, damit es funktioniert! Über jeden Tipp bin ich sehr dankbar!