PivotTable DataSource ändern ?
08.07.2005 14:12:13
Gerwas
es exisitiert eine pivottabelle, die in zeilen bestimmte bereiche und in spalten die monate enthält, die eigentlichen Daten werden als summe ausgegeben.
das ganze mit dem macro-recorder aufgezeichnet sieht so aus:
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:= _
"[514_10_daten.xls]eingang!R7C1:R19C18", _
TableDestination:="R1C1", _
TableName:="Pivot-Tabelle1"
ActiveSheet.PivotTables("Pivot-Tabelle1").AddFields _
RowFields:="kst", _
ColumnFields:="f_monat"
With ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("res1")
.Orientation = xlDataField
.Name = "Verbrauch"
.Function = xlSum
End With
ich möchte jetzt per vba-code SourceData dynamisch erweitern, abhängig davon, wieviele datensätze ich in den bereich geschrieben habe. jedoch bringt mein versuch regelmäßig eine fehlermeldung: "Bezug ist ungültig"
ActiveSheet.PivotTables(1).SourceData = "[514_10_daten.xls]eingang!R7C1:R999C18"
Was muß ich anders machen?