Alle Pivot Tabellen aktualisieren
25.07.2017 10:30:18
Kisska
ich würde gerne in der gesamten Arbeitsmappe alle Pivot Tabellen aktualisieren
a) beim Öffnen
b) laufend in der geöffneten Arbeitsmappe, wenn der Datenbereich aktualisiert wird.
Die Aktualisierung soll im Hintergrund passieren, ohne dass man folgende Meldung bestätigen muss:
"... enthält bereits Daten. Möchten Sie sie ersetzen?".
Mit diesem Code komme ich nicht weiter:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.RefreshTable
Next
End Sub
Viele Grüße
Kisska