PIVOT per VBA erstellen
Chris
hab hier mal wieder so ein Problem bei dem ich mit meinen "Künsten" nicht weiter komme.
Ich habe in einem Tabellenblatt "Analyse" Daten stehen die ich per VBA in verschiedenen PIVOT Tabellen anzeigen möcht.
Die Daten im Blatt "Analyse" können vom Umfang her unterschiedlich sein, je nachdem wieviele Informationen ich auswerten möchte.
Mit dem Rekorder hab ich nun folgendes Makro aufgezeichnet
Sub PIVOT_Manufacturer_Umsatz()
' PIVOT erstellen Manufacturer&Umsatz
Range("A6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Analyse!R6C1:R267C59", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Auswertung!R6C1", TableName:="PivotTable3", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Auswertung").Select
Cells(6, 1).Select
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Manufacturer")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Potential Revenue p.a."), _
"Summe von Potential Revenue p.a.", xlSum
End Sub
Wenn ich den Umfang in Blatt "Analyse" jedoch verändere dann passt die Auswertung nicht mehr.
Ich schätze mal dass es mit dem Bereich zusammenhängt der in SourceData angegeben wird:
SourceData:= _ "Analyse!R6C1:R267C59"
Oder gibt es vielleicht auch grundsätzlich eine elegantere Vorgehensweise?
Vielen Dank im Voraus für eure Mühen.
Gruß
Chris