Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Pivottabelle über Button aktualisieren?
zurück: verbundene Zellen loesen und werte auffuellen weiter: "Case"-Befehle zusammenfassen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Die-freundliche-Assi
Einsteiger VBA-Programmierung


Verfasst am:
28. Apr 2008, 14:10
Rufname: Alex
Wohnort: Asslar

Pivottabelle über Button aktualisieren? - Pivottabelle über Button aktualisieren?

Nach oben
       Version: Office 2k (2000)

Hallo,

in einer Excel-Datei habe ich mehrere Tabellenblätter mit großer Datenmenge.

Für jede Datentabelle gibt es auch entsprechende Pivot-Tabellen.

In der Tabelle „Report“ möchte ich mir die entsprechenden Daten aus der / den Pivot-Tabelle(n)
anzeigen lassen, sobald ich einen Zeitraum ausgewählt habe.
(Zeitraum lässt sich per Auswahlliste auswählen).

Soweit so gut. Smile

Erweitere ich aber jede Datentabelle um neue Daten (für einen neuen Zeitraum),
muß ich logischerweise auch die entsprechenden Pivot-Tabellen aktualisieren.

Damit keine Aktualisierung von Pivot-Tabellen vergessen wird,
möchte ich das gerne per Button auslösen.

Gibt’s eine Möglichkeit, einen Button zu erstellen, dessen Code besagt:
„Aktualisiere jede Pivot-Tabelle in dieser Datei“ oder
„Aktualisiere Pivot-Tabelle X“ ???

Muß dazu vorher die Pivot-Tabelle einen Namen bekommen?
Wenn ja, wie geht das? Question

Ich bin für jede Hilfe dankbar!

Vielen Dank schon mal im voraus für Eure Mühe.


Viele Grüße
Die freundliche Assi
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
28. Apr 2008, 14:17
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: Pivottabelle über Button aktualisieren? - AW: Pivottabelle über Button aktualisieren?

Nach oben
       Version: Office 2k (2000)

Hallo,

schau mal ob dir das hilft:

Ziehe einen Command-Button aus dem Steuerelement-Toolbox auf und hinterlege den folgenden Code:

Code:
Private Sub CommandButton1_Click()
Dim pt As PivotTable
   For Each pt In ActiveSheet.PivotTables
      pt.RefreshTable
   Next pt
End Sub


Alternativ: Wenn du alle Pivottabellen einer Mappe aktualisieren kannst Du die folgende Prozedur nutzen:

Code:
Sub RefreshPT()
    Dim wS As Worksheet
    Dim pt As PivotTable
    For Each wS In ActiveWorkbook.Worksheets
        For Each pt In wS.PivotTables
            pt.RefreshTable
        Next pt
    Next wS
End Sub

_________________
Gruß
Peter
Die-freundliche-Assi
Einsteiger VBA-Programmierung


Verfasst am:
28. Apr 2008, 14:27
Rufname: Alex
Wohnort: Asslar

AW: Pivottabelle über Button aktualisieren? - AW: Pivottabelle über Button aktualisieren?

Nach oben
       Version: Office 2k (2000)

Hallo Peter,

danke für Deine schnelle Antwort.

Hmmm, irgendwas mache ich wohl verkehrt, denn beim testen bleibt Excel direkt bei der ersten Zeile hängen:

[code]Private Sub CommandButton2_Click()
Sub RefreshPT()
Dim wS As Worksheet
Dim pt As PivotTable
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.RefreshTable
Next pt
Next wS
End Sub[code]

Folgende Meldung erscheint dann: "Fehler beim Kompilieren: End Sub erwartet".

Versteh' ich net..... Sad

Viele Grüße
DfA[/code]
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
28. Apr 2008, 14:29
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun

AW: Pivottabelle über Button aktualisieren? - AW: Pivottabelle über Button aktualisieren?

Nach oben
       Version: Office 2k (2000)

Hallo,

entweder du machst es über einen Commandbutton und dann benötigst du diese Zeile:

Private Sub CommandButton2_Click()

oder du machst es über ein Makro und dann ist diese Zeile notwendig:

Sub RefreshPT()

Beide Zeilen zusammen sind zuviel des Guten

_________________
Gruß
Peter
Die-freundliche-Assi
Einsteiger VBA-Programmierung


Verfasst am:
28. Apr 2008, 14:48
Rufname: Alex
Wohnort: Asslar


AW: Pivottabelle über Button aktualisieren? - AW: Pivottabelle über Button aktualisieren?

Nach oben
       Version: Office 2k (2000)

Hach, ja..... ich bin ja dooooooof..... Very Happy
Danke für den dezenten Hinweis..... Embarassed

Code:
Private Sub CommandButton2_Click()
    Dim wS As Worksheet
    Dim pt As PivotTable
    For Each wS In ActiveWorkbook.Worksheets
        For Each pt In wS.PivotTables
            pt.RefreshTable
        Next pt
    Next wS
End Sub


Ja, der Code hat nun keine Fehler mehr.

Wenn ich auf den Button klicke tut sich auch was,
nur was, kann ich leider nicht sagen, Excel berechnet nun was und ist dadurch total grottenlangsam.....
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Kalenderwoche automatisch in Formeln aktualisieren?? 4 wuschel179 1300 07. Sep 2007, 10:01
wuschel179 Kalenderwoche automatisch in Formeln aktualisieren??
Keine neuen Beiträge Excel Formeln: Per Button Felder leeren 8 Gast 1201 22. Mai 2007, 11:05
c0bRa Per Button Felder leeren
Keine neuen Beiträge Excel Formeln: Per Drehfeld oder Button das Tabellenblatt wechseln 8 Bjoern 1 11208 08. Mai 2007, 14:05
Gast Per Drehfeld oder Button das Tabellenblatt wechseln
Keine neuen Beiträge Excel Formeln: In Excel per Button um 1 erhöhen 2 Rainer K. 2727 29. Apr 2007, 10:13
Gast In Excel per Button um 1 erhöhen
Keine neuen Beiträge Excel Formeln: pivottabelle ohne (Leer) 5 emil 1608 20. März 2007, 17:47
< Peter > pivottabelle ohne (Leer)
Keine neuen Beiträge Excel Formeln: Verknüpfung nur manuell aktualisieren 0 VBAversucher 908 06. Jan 2007, 14:17
VBAversucher Verknüpfung nur manuell aktualisieren
Keine neuen Beiträge Excel Formeln: Pivottabelle 10 Linda G. 785 29. Dez 2006, 06:31
lala Pivottabelle
Keine neuen Beiträge Excel Formeln: Pivottabelle, Hilfslinien verscwinden beim Aktualisieren 8 Linda G. 1008 23. Dez 2006, 16:22
Gast Pivottabelle, Hilfslinien verscwinden beim Aktualisieren
Keine neuen Beiträge Excel Formeln: 2 zellen mit hilfe von einem button addieren 4 Jansen 1503 26. Nov 2006, 20:33
Fux85 2 zellen mit hilfe von einem button addieren
Keine neuen Beiträge Excel Formeln: Verknüpfungen automatisch aktualisieren 8 Frankie 14136 04. Okt 2006, 09:21
lala Verknüpfungen automatisch aktualisieren
Keine neuen Beiträge Excel Formeln: Automatisches Aktualisieren 6 maexchen 1111 27. Sep 2006, 09:13
Gast Automatisches Aktualisieren
Keine neuen Beiträge Excel Formeln: Button erstellen mit Funktion "Gehe zu Tabellenblatt&qu 2 racker77 2798 15. Mai 2006, 14:50
123icke Button erstellen mit Funktion "Gehe zu Tabellenblatt&qu
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project