Pivot-Datenbereich automatisch erweitern
24.01.2017 17:34:18
Kyra
ich habe folgende Problemstellung in einer Excel-Datei:
In Tabellenblatt "A" sind Mitarbeiterdaten enthalten. Um eine Aggregierte Darstellung der Tabelleninhalte zu erhalten, habe ich eine Pivot über die Daten aus Tabellenblatt A gelegt. Die Pivot Tabelle befindet sich in Tabellenblatt B.
Tabelle A wird jedoch häufig erweitert und der Pivot-Datenbereich muss jedesmal neu angepasst werden. Nun möchte ich gerne den Datenbereich über ein Makro automatisch erweitern.
Ich habe bereits untenstehendes Makro ausprobiert (leider ohne Erfolg):
Sub PivotTabellenDatenbereichErweitern()
' Der Pivot Datenbereich wird dynamisch an die Tabellengröße angepasst
Dim pt As PivotTable
Dim rngBereich As Range
Set rngBereich = Tabelle1.Range("A1").CurrentRegion
ActiveWorkbook.Names.Add Name:="PivotBereich", _
RefersTo:=rngBereich, Visible:=True
For Each pt In Tabelle1.PivotTables
pt.PivotTableWizard SourceType:=xlDatabase, SourceData:="PivotBereich"
pt.RefreshTable
Next pt
MsgBox "Der Datenbereich ist erweitert"
End Sub
Da scheint sich irgendwo ein Fehler in meinem Code zu verstecken :-(
Ich würde mich freuen, wenn mir jemand helfen kann.
Viele Grüße
Kyra
Anzeige