10.01.2022, 20:21
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
2. Nach Button drücken Fehlerbox mit Inhalt: "400"
3. gleiches Problem wie bei 2.
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 Sub2. Nach Button drücken Fehlerbox mit Inhalt: "400"
Code:
Sub RefreshPivotTable()
ActiveSheet.PivotTables("pivot1").PivotCache.Refresh
End Sub3. gleiches Problem wie bei 2.
Code:
Sub RefreshPivotTable()
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables("pivot1")
PT.RefreshTable
End Sub