Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pivot-Datenbereich automatisch erweitern in Excel


Schritt-für-Schritt-Anleitung

Um den Datenbereich Deiner Pivot-Tabelle automatisch zu erweitern, kannst Du das folgende VBA-Makro verwenden:

  1. Öffne die Excel-Datei, in der sich Deine Daten und Pivot-Tabelle befinden.
  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul hinzuzufügen.
  4. Kopiere den folgenden Code in das Modul:
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
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Drücke ALT + F8, wähle das Makro PivotTabellenDatenbereichErweitern aus und klicke auf Ausführen.

Wenn Du nun Deine Daten in Tabelle A erweiterst, wird der Pivot-Datenbereich automatisch angepasst, wenn Du das Makro ausführst.


Häufige Fehler und Lösungen

1. Fehler: "Der Datenbereich ist nicht korrekt"

  • Überprüfe, ob der Tabellennamen in Deinem Code korrekt ist (z.B. Tabelle1).

2. Fehler: "PivotTableWizard kann nicht ausgeführt werden"

  • Stelle sicher, dass Du mindestens eine Pivot-Tabelle im definierten Bereich hast.

3. Fehler: "Objekt nicht gefunden"

  • Überprüfe, ob Du in der Excel-Version, die Du verwendest, die erforderlichen Berechtigungen hast.

Alternative Methoden

Statt eines Makros kannst Du auch eine dynamische Tabelle verwenden:

  1. Wandle Deine Daten in eine Excel-Tabelle um (STRG + T).
  2. Erstelle die Pivot-Tabelle aus dieser Tabelle. Excel wird den Datenbereich automatisch erweitern, wenn Du neue Daten hinzufügst.

Praktische Beispiele

  • Beispiel 1: Wenn Du eine neue Zeile mit Mitarbeiterdaten in Tabelle A hinzufügst, führe das Makro aus, um den Bereich der Pivot-Tabelle zu erweitern.
  • Beispiel 2: Verwende die dynamische Tabelle, um sicherzustellen, dass Deine Pivot-Tabelle immer die neuesten Daten hat, ohne dass Du das Makro manuell ausführen musst.

Tipps für Profis

  • Nutze die Funktion Tabelle in Excel, um den Datenbereich automatisch zu erweitern.
  • Experimentiere mit der PivotTable.Options-Eigenschaft, um zusätzliche Anpassungen an Deiner Pivot-Tabelle vorzunehmen.
  • Halte Deine Excel-Version immer auf dem neuesten Stand, um von den neuesten Funktionen und Sicherheitsupdates zu profitieren.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Datenbereich meiner Pivot-Tabelle manuell ändern?
Antwort: Klicke mit der rechten Maustaste auf die Pivot-Tabelle, wähle PivotTable Optionen, gehe zu Daten und passe den Datenbereich manuell an.

2. Frage
Kann ich mehrere Pivot-Tabellen auf einmal erweitern?
Antwort: Ja, passe einfach den Code im Makro an, um alle Pivot-Tabellen in Deinem Arbeitsblatt zu durchlaufen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige