Pivottabelle aktualisieren
27.09.2005 09:18:09
Gabriel Grohmann
ich habe eine Excel-Tabelle, die externe Daten (ODBC) anzapft und in ein Tabellenblatt schreibt. Dieses Tabellenblatt liefert die Grunddaten für eine Pivottabelle. Nun soll der User mit einem Button alles automatisch aktualisieren können, wozu ich folgendes Script verwende:
ActiveWorkbook.RefreshAll ' Alle externen Daten aktualisieren
Calculate
For Each wSheet In Worksheets
For Each pTable In wSheet.PivotTables
pTable.Update
Next pTable
Next wSheet
For Each pCache In ActiveWorkbook.PivotCaches
pCache.Refresh
Next pCache
Calculate
Leider aktualisiert Excel zwar die externen Daten, aber die Pivottabelle bleibt unverändert. Führe ich das Script zweimal hintereinander aus, funktioniert es seltsamerweise...
Leider habe ich keine Idee mehr, woran es noch liegen könnte.
Gruß
Gabriel