Pivot mit VBA
Excel-Beginner
ich versuche, per Makro eine Pivottabelle zu erstellen.
In der Zeilenbeschriftung soll Hersteller, Typ, Modell sein. Bei den Werten soll die Leasing-Nummer angezeigt werden (als Anzahl). In der Spalte soll der Status erscheinen.
Ich zeichne das mit dem Makrorekorder auf, allerdings kommt dann der Laufzeitfehler 5 (ungeültige Prozeduraufruf oder ungültiges Argument.
Habe die Tabelle hochgeladen, aus dem 1. Sheet müsste die Pivot gezogen werden.
https://www.herber.de/bbs/user/78607.xlsx
Kann jemand helfen?
Danke u. Gruss, Andreas
p.s. hier der Text des Makros:
Sub FleetMixProfessional()
' FleetMixProfessional Makro
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Tabelle1").Select
Range("A2").Select
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!Z1S1:Z175S167", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Tabelle4!Z3S1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Tabelle4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Hersteller")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Typ")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Modell")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Leasing-Nr."), "Summe von Leasing-Nr.", xlSum
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Summe von Leasing-Nr." _
)
.Caption = "Anzahl von Leasing-Nr."
.
Function = xlCount
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Status")
.Orientation = xlColumnField
.Position = 1
End With
End Sub