Pivot Tabelle mit variablem Spaltenbereich
29.10.2004 03:39:48
Paul
ich habe ein kleines Problem mit einer Pivot Tabelle.
Ich erstelle aus einen Sheet herraus auf einem zweiten Sheet eine Pivottabelle per Makro. Der Punkt ist nun das die Daten in der Spaltenanzahl varieren können. Die Zeilen bleiben aber fix.
Dies ist das was mir der Rekorder bisher an Code gegeben hat, mit jeweils einem festen Datenbereich:
Sub Create_Pivot()
Sheets("Opex").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"tb!R1C1:R3896C12").CreatePivotTable TableDestination:=Range("A3"), _
TableName:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="ACCT", _
ColumnFields:="CC", PageFields:="YTD"
ActiveSheet.PivotTables("PivotTable1").PivotFields("YTD").Orientation = _
xlDataField
End Sub
Dies würde ich nun gerne variabel hinbekommen, da sich die Spalten ja immer ändern. Wie kann ich das realisieren?
Vielen Dank schon mal im Voraus...
Paul
Anzeige