1 Pivot Table per Button updaten

[nick2022]

Ich versuche ein Pivot Table mit einem Button zu updaten, ich habe verschiedene Möglichkeiten probiert doch keine scheint zu funktionieren, evtl. findet ja jemand den Fehler:
Der Name des Pivot Table ist "pivot1"

1. Nach Button drücken passiert Garnichts nur Cursor ändert sich bis zum nächsten Klick

Code:

Sub RefreshPivotTable()
Dim PT As PivotTable
    Set PT = ActiveSheet.PivotTables("PivotTable1")
    PT.RefreshTable
End Sub

2. Nach Button drücken Fehlerbox mit Inhalt: "400"

Code:

Sub RefreshPivotTable()

ActiveSheet.PivotTables("pivot1").PivotCache.Refresh


End Sub

3. gleiches Problem wie bei 2.

Code:

Sub RefreshPivotTable()

Dim PT As PivotTable
    Set PT = ActiveSheet.PivotTables("pivot1")
    PT.RefreshTable


End Sub

[schauan]

Hallöchen,

das Refreshen kannst du aufzeichnen. Vergleiche den aufgezeichneten Code mit Deinem.