Pivot aktualisieren bei Zelländerung

Forumthread: Pivot aktualisieren bei Zelländerung

22.08.2019 14:23:47

stormlamp

Hallo,
wenn ich auf einem Tabellenblatt den Inhalt der Zelle B1 bearbeite, soll sich automatisch die Pivottabelle auf diesem Tabellenbaltt aktualisieren.
Welchen Code muss ich dafür nehmen?
Viele Grüße
Hans

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Pivot aktualisieren bei Zelländerung

22.08.2019 14:39:41

ede
AW: Pivot aktualisieren bei Zelländerung

22.08.2019 14:52:57

stormlamp
gerne o.T.

22.08.2019 14:58:59

ede

AW: Pivot aktualisieren bei Zelländerung

22.08.2019 14:39:41

ede

Hallo Hans,
dann versuch mal so:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ptPivottabelle As PivotTable
If Target.Address = "$B$2" Then
'alle Pivots in diesem Sheet refreshen
For Each ptPivottabelle In ActiveSheet.PivotTables
ptPivottabelle.RefreshTable
Next
End If
End Sub

gruss
ede

AW: Pivot aktualisieren bei Zelländerung

22.08.2019 14:52:57

stormlamp

vielen Dank für die Hilfe

gerne o.T.

22.08.2019 14:58:59

ede

Infobox / Tutorial

Pivot Tabellen automatisch aktualisieren bei Zelländerung

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um die Pivot-Tabelle automatisch zu aktualisieren, wenn sich eine Zelle ändert, kannst du den folgenden VBA-Code verwenden. Dieser Code wird in das entsprechende Arbeitsblatt-Modul eingefügt:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Doppelklicke im Projektfenster auf das Arbeitsblatt, in dem die Pivot-Tabelle sich befindet.

Füge den folgenden Code in das Codefenster ein:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ptPivottabelle As PivotTable
    If Target.Address = "$B$2" Then
        'alle Pivots in diesem Sheet refreshen
        For Each ptPivottabelle In ActiveSheet.PivotTables
            ptPivottabelle.RefreshTable
        Next
    End If
End Sub

Schließe den VBA-Editor und teste die Funktionalität, indem du den Inhalt der Zelle B2 änderst. Deine Pivot-Tabelle sollte sich automatisch aktualisieren.

Häufige Fehler und Lösungen

Pivot aktualisiert sich nicht: Stelle sicher, dass der Zielbereich im If-Befehl korrekt angegeben ist. Wenn du eine andere Zelle überwachen möchtest, ändere "$B$2" entsprechend.
Fehlermeldungen beim Ausführen des Codes: Achte darauf, dass Makros aktiviert sind. Gehe zu Datei > Optionen > Sicherheit > Makros aktivieren.

Alternative Methoden

Pivot aktualisieren Button: Du kannst einen Button erstellen, der die Pivot-Tabelle aktualisiert. Füge einen Button aus der Entwicklertools-Symbolleiste hinzu und verlinke ihn mit folgendem Code:
```
Sub PivotAktualisieren()
    Dim ptPivottabelle As PivotTable
    For Each ptPivottabelle In ActiveSheet.PivotTables
        ptPivottabelle.RefreshTable
    Next
End Sub
```
Excel-Datenschnitt aktualisieren: Wenn du einen Datenschnitt verwendest, kannst du den Datenschnitt ebenfalls so konfigurieren, dass er die Pivot-Tabelle automatisch aktualisiert, wenn Änderungen vorgenommen werden.

Praktische Beispiele

Beispiel 1: Wenn du die Zelle B2 als Steuerzelle für die Pivot-Tabelle verwendest, kannst du dort eine Dropdown-Liste einfügen. Ändere die Auswahl in B2, und die Pivot-Tabelle wird automatisch aktualisiert.
Beispiel 2: Du kannst die Pivot-Tabelle so einrichten, dass sie Daten aus verschiedenen Blättern bezieht. Stelle sicher, dass in jedem Blatt ein ähnlicher VBA-Code vorhanden ist, um die Pivot-Tabelle bei Änderungen zu aktualisieren.

Tipps für Profis

Automatisierung: Überlege, ob du die Pivot-Tabelle beim Öffnen der Datei automatisch aktualisieren möchtest. Füge dazu den folgenden Code in das Workbook_Open-Ereignis ein:

Private Sub Workbook_Open()
    Dim ptPivottabelle As PivotTable
    For Each ptPivottabelle In ThisWorkbook.Sheets("DeinBlattname").PivotTables
        ptPivottabelle.RefreshTable
    Next
End Sub

Performance: Wenn deine Excel-Datei viele Pivot-Tabellen hat, kann das automatische Aktualisieren die Leistung beeinträchtigen. Überlege, ob du die Automatisierung nur für bestimmte Tabellen aktivieren möchtest.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Pivot-Tabelle immer die neuesten Daten anzeigt? Um die Pivot-Tabelle automatisch zu aktualisieren, wenn sich die Daten ändern, verwende den oben beschriebenen VBA-Code.

2. Gibt es eine Möglichkeit, die Pivot-Tabelle ohne VBA automatisch zu aktualisieren? Ja, du kannst die Pivot-Tabelle manuell aktualisieren, indem du mit der rechten Maustaste auf die Tabelle klickst und „Aktualisieren“ wählst. Es gibt jedoch keine native Excel-Funktion, um dies automatisch zu tun.

Beliebteste Forumthreads (12 Monate)

Pivot aktualisieren bei Zelländerung

Forumthread: Pivot aktualisieren bei Zelländerung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Pivot Tabellen automatisch aktualisieren bei Zelländerung

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread