Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot-Datenbereich automatisch erweitern

Pivot-Datenbereich automatisch erweitern
24.01.2017 17:34:18
Kyra
Hallo Zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige