als eine mögliche Lösung für mein vorherige Anfrage, habe ich folgenden Code angepasst.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt As PivotTable
If ActiveSheet.Range("P1") = ActiveSheet.Range("Q1") Then
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt´
End If
End Sub
Sieh auch Anhang
https://www.herber.de/bbs/user/116871.xlsm
Leider werden meine Pivot's in der Tabelle nicht automatisch aktualisiert.
Woran liegt das ?
Einen Debug-Fehler gibt es auch nicht.
Grüße
Schen4ik