Mein Anliegen ist es, dass, wenn Änderungen in einem Tabellenblatt vollzogen werden (Inhalts-Updates, aber auch Hinzufügen oder Löschen von Zeilen!), alle, von diesem Tabellenblatt ausgehenden Pivot-Tabellen (auch wenn die Pivots sich in anderen Tabellenblättern befinden!) automatisch aktualisiert werden.
Ich habe im WWW folgendes Makro gefunden, aber leider kommt bei der Ausführung der Basic-Syntax-Fehler, dass "PivotTable" ein unbekannter Datentyp sein.....
![Confused :?](./images/smilies/icon_confused.gif)
Makro:
Option Explicit
'---------------------------------------------------------------------------------------
' Module : RefreshAllWorkbookPivots
' Purpose : Refresh All Chosen Pivot Tables in a Workbook
'---------------------------------------------------------------------------------------
Sub RefreshAllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
Application.Calculate
End Sub
Für weiterführende Tipps oder Alternativlösungen bin ich sehr dankbar!
![Smile :)](./images/smilies/icon_smile.gif)
P.S. Ich verwende OO 4.1.1 !