Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.PivotTables("Pivot-Tabelle1").RefreshTable
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PivotTables("Pivot-Tabelle1").RefreshTable
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle3").PivotTables("Pivot-Tabelle1").RefreshTable
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle3").PivotTables("Pivot-Tabelle1").RefreshTable
End Sub
Private Sub Worksheet_Activate()
Dim Pivo As PivotTable
For Each Pivo In ActiveSheet.PivotTables
Pivo.RefreshTable
Next
End Sub