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

Forumthread: WG: Datei bzw. Pivot über Buttons aktualisieren

WG: Datei bzw. Pivot über Buttons aktualisieren
16.10.2017 18:49:35
schen4ik
Hallo Excelfreunde,
ich benötige nun einen kleinen Tipp bzw. Anpassung für ein Makro. Leider sind meine Kenntnisse hierbei sehr schwach.
In der Datei, siehe Anhang, zu der mir der User "onur" in meiner vorherigen Anfrage super geholfen hat, möchte ich dass Alle Pivot's in dem Tabellenblatt aktualisiert werden.
https://www.herber.de/bbs/user/117002.xlsm
In der Datei wird jedoch nur die eine Pivot-Tabelle aktualisiert.
Vorab vielen Dank für die Unterstützung.
Grüße
Schen4ik
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: WG: Datei bzw. Pivot über Buttons aktualisieren
16.10.2017 20:59:10
fcs
Hallo Schen4ik,
hier ein entsprechendes Makro
'Makro in allgemeinem Modul
Public Sub prcPivotTabRefresh(wks As Worksheet)
Dim pvTab As PivotTable
For Each pvTab In wks.PivotTables
pvTab.RefreshTable
Next
End Sub
'Beispiele für Aufruf - diesen an gewünschten Stellen einbauen
Call prcPivotTabRefresh(wks:=Worksheets("Auftragsbündelung"))
Call prcPivotTabRefresh(wks:=ActiveSheet)
Franz
Anzeige
AW: WG: Datei bzw. Pivot über Buttons aktualisieren
17.10.2017 07:48:11
schen4ik
Hallo Franz,
danke für deine Unterstützung.
Weitere Frage ist wo soll dieser Aufruf erfolgen?
AW: WG: Datei bzw. Pivot über Buttons aktualisieren
17.10.2017 22:04:47
fcs
Hallo Schen4ik,
am Ende jedes Makros, das die PivotTable3 anpasst.
Da du -zuminest in deiner Beispieldatei- nur eine weitere PivotTabelle im Blatt hast kannst du es auch so machen:
    ActiveSheet.PivotTables("PivotTable2").RefreshTable
Gruß
Franz
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pivot-Tabellen in Excel über Buttons aktualisieren


Schritt-für-Schritt-Anleitung

Um alle Pivot-Tabellen in einem Excel-Arbeitsblatt über einen Button zu aktualisieren, befolge diese Schritte:

  1. Öffne deine Excel-Datei und gehe zu dem Arbeitsblatt, in dem sich deine Pivot-Tabellen befinden.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf VBAProject (deineDatei.xlsm) und wähle Einfügen > Modul.
  4. Füge das folgende Makro ein:

    'Makro in allgemeinem Modul
    Public Sub prcPivotTabRefresh(wks As Worksheet)
       Dim pvTab As PivotTable
       For Each pvTab In wks.PivotTables
           pvTab.RefreshTable
       Next
    End Sub
  5. Füge einen Button ein:

    • Gehe zurück zu deinem Arbeitsblatt, wähle Entwicklertools > Einfügen > Button (Formularsteuerung).
    • Zeichne den Button auf dein Arbeitsblatt.
  6. Weise das Makro dem Button zu:

    • Klicke mit der rechten Maustaste auf den Button und wähle Makro zuweisen.
    • Wähle prcPivotTabRefresh aus der Liste und klicke auf OK.

Jetzt kannst du den Button verwenden, um alle Pivot-Tabellen in dem angegebenen Arbeitsblatt zu aktualisieren.


Häufige Fehler und Lösungen

  • Fehler: Der Button aktualisiert nicht alle Pivot-Tabellen.

    • Lösung: Stelle sicher, dass das Makro korrekt implementiert ist und dass alle Pivot-Tabellen im angegebenen Arbeitsblatt existieren.
  • Fehler: Der Button ist nicht sichtbar.

    • Lösung: Überprüfe, ob das Arbeitsblatt geschützt ist oder ob die Schaltfläche außerhalb des sichtbaren Bereichs platziert wurde.

Alternative Methoden

Wenn du keine Buttons verwenden möchtest, kannst du auch die folgenden Methoden nutzen:

  • Tastenkombination: Drücke ALT + F5, um alle Pivot-Tabellen im aktiven Arbeitsblatt zu aktualisieren.
  • Menüoption: Gehe zu Daten > Alle aktualisieren, um alle Daten und Pivot-Tabellen zu aktualisieren.

Praktische Beispiele

Angenommen, du hast zwei Pivot-Tabellen auf dem Arbeitsblatt „Verkäufe“. Du kannst das Makro so anpassen:

Sub AktualisiereVerkaufsPivots()
    Call prcPivotTabRefresh(wks:=Worksheets("Verkäufe"))
End Sub

Du kannst dieses Makro dem Button zuweisen, um die Pivot-Tabellen auf dem „Verkäufe“-Blatt zu aktualisieren.


Tipps für Profis

  • Automatisierung: Du kannst das Aktualisieren der Pivot-Tabellen auch beim Öffnen der Datei automatisieren, indem du das Makro im Workbook_Open-Ereignis platzierst.
  • Fehlerbehandlung: Füge eine Fehlerbehandlung in dein Makro ein, um potenzielle Probleme zu erkennen:

    On Error Resume Next
    ' Dein Aktualisierungscode hier
    On Error GoTo 0

FAQ: Häufige Fragen

1. Wie kann ich alle Pivot-Tabellen in mehreren Arbeitsblättern aktualisieren?
Du kannst eine Schleife verwenden, um durch alle Arbeitsblätter zu iterieren und das Aktualisierungs-Makro aufzurufen.

2. Funktioniert das auch in Excel 2016?
Ja, die beschriebenen Schritte und Makros funktionieren in Excel 2016 sowie in neueren Versionen.

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