Herbers Excel-Forum - das Archiv
Pivot-Tabellenberichte aktualisieren
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Pivot-Tabellenberichte aktualisieren
von: MRP
Geschrieben am: 25.11.2003 17:23:55
Hallo zusammen,
möchte gerne ALLE Pivottabellen einer Datei per Button aktualisieren.
Folgende Codes hab ich probiert:
Private Sub CommandButton1_Click()
For Each pc In ActiveWorkbook.PivotCaches
pc.Refresh
Next
End Sub
(von chris-ka
http://spotlight.de/zforen/mse/m/mse-1068806234-27174.html)
und
Sub aktualisierenPivot()
Dim PT As PivotTable
For Each PT In ActiveSheet.PivotTables
PT.RefreshTable
Next
End Sub
(von Georg Hoffmann:
http://spotlight.de/zforen/mse/m/mse-1068806142-5371.html )
Leider krieg ich jedesmal die Fehlermeldung:
Laufzeitfehler '1004':
Die RefreshTable-Methode des PivotTable-Objektes ist fehlerhaft.
Weiss jemand von euch Rat ??
Ciao
Manuele Rocco Parrino
Betrifft: AW: Pivot-Tabellenberichte aktualisieren
von: Arne
Geschrieben am: 25.11.2003 17:54:43
hi,
guck mal hier:
https://www.herber.de/forum/archiv/184to188/t184249.htm
gruß
arne
Betrifft: AW: Pivot-Tabellenberichte aktualisieren
von: MRP
Geschrieben am: 26.11.2003 08:37:14
Guten Morgen Arne,
Danke für den Tip. Habe meinen Code wiefolgt umgeändert:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Auswahl").PivotTables("PivotTable1").RefreshTable
Application.ScreenUpdating = True
End Sub
Leider krieg ich wieder die Fehlermeldung:
Laufzeitfehler '1004':
Die RefreshTable-Methode des PivotTable-Objektes ist fehlerhaft.
Zur Erklärung: In der Datei sind auf dem Sheet Auswahl noch zwei weitere PT ( 2 und 3 ) die aktualisiert werden sollen. Auserdem auf drei weiteren Tabellenblättern jeweils eine PT. Alle sollen aktualisiert werden wenn ich auf den CommandButton drücke. Per Hand geht das komischerweise. Versuche jetzt mal das Ganze mit dem Makrorecorder aufzuzeichnen. Aber das hat mich schon beim letzten Mal nicht weitergebracht :-(
s.a.
http://www.excel-center.de/forum/read.php?f=1&i=49884&t=49884
Er hängt jedesmal beim refresh Befehl
Ciao
Manuele Rocco Parrino
Betrifft: AW: Pivot-Tabellenberichte aktualisieren
von: Otto
Geschrieben am: 26.11.2003 19:43:20
Hallo Manuele,
Meine Testumgebung:
Excel 8.0 SR-2, unter
Windows 2000 SP-2
Die Fehlermeldung deutet auf eine schlechte Datenquelle der PivotTabelle hin. In so einem Fall rekonstruiere ich die fragliche Pivottabelle:
'
Gruß Otto