spetziell für die aktualisierung der Tabelle damit man nicht immer das über das umständliche menü machen muß
kann mir Jemand hierzu weiterhelfen ?
danke schonmal im voraus
Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub
Private Sub CommandButton1_Click()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub