Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PivotTable DataSource ändern ?

Forumthread: PivotTable DataSource ändern ?

PivotTable DataSource ändern ?
08.07.2005 14:12:13
Gerwas
Folgendes Problem läßt mich nicht mehr richtig schlafen:
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?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PivotTable DataSource ändern ?
09.07.2005 09:56:20
Rolf
Hallo G,
du könntest dem Quellbereich einen Namen geben,
und den dann bei der Aufzeichnung eingeben.
Dann musst du später nur noch darauf achten,
dass du entweder neue Daten immer vor der letzten Zeile einfügst,
oder vor der Pivotaktualisierung folgendes Makro ausführst

Sub bereich_redimensionieren()
ActiveWorkbook.Names.Add Name:="Quellbereich", RefersToR1C1:=Range("A1").CurrentRegion
End Sub

fG
Rolf
Anzeige
AW: PivotTable DataSource ändern ?
12.07.2005 09:43:36
Gerwas
Danke
klappt prima...
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige