Pivot-Tabelle mittels VBA-Makro erstellen
Volker
ich habe auf einem Blatt "A_Tabelle3" zwischen A1 und U147 Daten stehen und will auf einem anderen, bereits existierenden Blatt derselben Arbeitsmappe aus diesen Daten eine Pivot-Tabelle erzeugen.
Mit dem Makro-Rekorder habe ich folgendes aufgenommen:
Sub Pivot_drei()
' Pivot_drei Makro
With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"A_Tabelle3!Z1S1:Z147S21", Version:=xlPivotTableVersion10)
.CreatePivotTable TableDestination:="Roh-Matrix!Z3S1", _
TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion10
End With
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Gruppenname")
.Orientation = xlRowField
.Position = 1
End With
End Sub
"Laufzeitfehler '5': Ungültiger Prozeduraufruf oder ungültiges Argument"
Ich habe mir die Hilfe-Informationen zu "CreatePivotTable" und "PivotCaches" durchgelesen.
Ich habe etliches probiert, aber ich finde den Fehler nicht.
Kann mir jemand sagen, was hier nicht stimmt?
Bin für jeden Tipp dankbar. Ich nehme gern auch ein anderes Makro zum Erzeugen meiner Pivot-Tabelle.
Danke vorab,
Volker