Pivottabelle mit VBA erstellen
23.06.2004 10:45:55
Ullrich
ich muß für immer wiederkehrende (Quartal)Datenexporte aus SAP
viele immer gleiche Pivottabellen (Charts) erstellen.
Ich habe mal für eine Pivottabelle die Vorgehensweise aufgezeichnet:
Code siehe weiter unten.
Beim Ausführen bringt mir Exel aber Fehlermeldungen, weil sich das Makro auf die vorherige, aufgezeichnete Aktion bezieht.
Wie müsste ein Makro aussehen, mit dem ich auch auf einen neuen Datenbestand zugreifen und immer gleiche Pivottabellen erstellen kann?
Vielen Dank schon mal für die Hilfe, Feedback versprochen!
Ullrich Sander
Sub pivot1()
' pivot1 Makro
' Makro am 23.06.2004 von IV_Sander aufgezeichnet
Sheets("Tabelle1").Select
Range("A2").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R327C26").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable3"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable3").SmallGrid = False
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Tabelle9").Range("A3")
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart.PivotLayout.PivotFields("Kostenträger")
.Orientation = xlPageField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotFields("Rechnungsbetrag")
.Orientation = xlDataField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotFields("RF Grund")
.Orientation = xlColumnField
.Position = 1
End With
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
End Sub