Pivot-Tabellenberichte aktualisieren
25.11.2003 17:23:55
MRP
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