ich habe ein Problem beim Erstellen einer Pivottabelle.
Mein Workbook besteht aus den Tabellen "Januar Grafik" und "Januar Daten".
Die Pivottabelle soll in der Tabelle "Januar Grafik" erstellt werden - Datenquelle soll "Januar Daten" sein.
Wenn ich über den Makrorecorder das Erstellen der Pivottabelle aufzeichne, kommt folgender Code _
heraus:
Sheets("Januar Grafik").Select
Range("A1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Januar Daten!R1C2:R1048576C3", Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="Januar Grafik!R1C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion15
Sheets("Januar Grafik").Select
Cells(1, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable2").PivotFields("RT")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("PNR"), "Anzahl von PNR", xlCount
With ActiveSheet.PivotTables("PivotTable2").PivotFields("RT")
.PivotItems(" ").Visible = False
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("'Januar Grafik'!$A$1:$B$6")
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).ApplyDataLabels
Beim anschließenden Ausführen des Codes bleibt er allerdings in der Zeile
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Januar Daten!R1C2:R1048576C3", Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="Januar Grafik!R1C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion15
stehen. Auch wenn ich die Tabelle lösche und wieder Neuerstelle.
Fehlermeldung:
Laufzeitfehler '5' Ungültiger Prozeduraufruf oder ungültiges Argument
Macht es einen Unterschied, ob hinter SourceData=
Januar Grafik!R1C1"
oder
"'Januar Grafik'!$A$1"
steht?
Vielen Dank schonmal für Eure Antworten!
Gruß Thomas