Pivo Tabelle automatisch erstellen
26.08.2005 09:42:57
Rudi
Aber kann man eine Pivot-Tabelle per VBA Makro automatisch erstellen?
Das ganze soll so aussehen:
Der zu analysierende Bereich ist der Datenbereich mit dem Feldnamen: AW99
Die Pivotabelle soll in der bestehenden Arbeitsmappe, dem Bereich mit dem Feldnamen: PT1 erstellt werden.
Das Layout ist folgendes:
Die Schaltfläche mit dem Namen VB1 soll ins Diagramm Seite
Die Schaltfläche mit dem Namen Provision soll ins Diagramm Daten
Zusammenfassen mit: Summe; Zahlen Währung.
In der fertigen Tabelle soll die Feldliste VB1 geöffnet werden, damit man sehen kann, aus welchen VB´s sich die Summe addiert.
Ich habe sie mit dem Rekorder aufgezeichnet der Code sieht so aus:
Sub PIVO1()
Application.Goto Reference:="AW99"
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="AW99"). _
CreatePivotTable TableDestination:= _
"'[Rittersbacher Provisionsabrechnung.xls]PTAB'!R3C1:R65536C4", TableName:= _
"PivotTable9", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable9").AddFields PageFields:="VB1"
With ActiveSheet.PivotTables("PivotTable9").PivotFields("Provision")
.Orientation = xlDataField
.Caption = "Summe von Provision"
.
Function = xlSum
.NumberFormat = "#.##0,00 "
End With
With ActiveSheet.PivotTables("PivotTable9").PivotFields("VB1")
.Orientation = xlRowField
.Position = 1
End With
End Sub
gruss rudiflei
Anzeige