ich habe über Makro aufzeichnen einen Code für Pivottabellenerstellung aufgezeichnet. Der Code funktioniert aber nur einmalig. Schließe ich die Datei oder versuche es in einer weiteren gleichartigen Datei, kommt es zu einem Fehler.
Der Code ist folgender:
'Pivot erstellen
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1:R144C4", Version:=6).CreatePivotTable TableDestination:= _
"Tabelle1!R3C1", TableName:="PivotTable1", DefaultVersion:=6
Sheets("Tabelle1").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Kosten"), "Summe von Kosten", xlSum
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenarten")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Empfänger/Zahlungspflichtiger")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Valuta")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Valuta").AutoGroup
ActiveSheet.PivotTables("PivotTable1").PivotFields("Monate").Orientation = _
xlHidden
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenarten").ShowDetail = _
False
Range("B6").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Kosten")
.NumberFormat = "#,##0.00 ;[Red]-#,##0.00 "
End With
Range("B11").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenarten").AutoSort _
xlDescending, "Summe von Kosten", ActiveSheet.PivotTables("PivotTable1"). _
PivotColumnAxis.PivotLines(1), 1
Range("F18").Select
Ich habe lediglich "NumberFormat = "#,##0.00 ;[Red]-#,##0.00 "" vom Original geändert. Das läuft dann auch einmalig.
Der Debugger springt dann zu:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1:R144C4", Version:=6).CreatePivotTable TableDestination:= _
"Tabelle1!R3C1", TableName:="PivotTable1", DefaultVersion:=6
Ich bitte um Hilfe. Dank im Voraus.
Grüße
Marin