ich möchte eine Pivot-Tabelle per Makro erstellen.
Dazu habe ich per 8REcorder den Ablauf aufgezeichnet (in bestehendes Tabellenblatt)
allerdings bekomme ich beim Ausführen des Makro immer eine Fehlermeldung
Hier der Makroinhalt:
Sheets("Daten rein kopieren").Select
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Daten rein kopieren'!A:AM").CreatePivotTable TableDestination:= _
"'[Erledigten Bestellungen Auswertung.xls]Auswertung'!R1C1", TableName:= _
"PivotTable3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="Art. Nr.. ", _
ColumnFields:="Liefermonat", PageFields:=Array("Kunden Nr.", "Lieferjahr")
With ActiveSheet.PivotTables("PivotTable3").PivotFields("geliefert")
.Orientation = xlDataField
.Caption = "Summe von geliefert"
.Function = xlSum
End With
Kann jemand einen Fehler entdecken, oder geht es überhaupt nicht per vba?
Mfg
Thorsten