ich habe in einem Tabellenblatt 2 Pivittabellen. Diese werden jedoch nicht automatisch aktualisiert. Folgenden Code habe ich schon probiert:
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.RefreshAll
End Sub
Danke
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.RefreshAll
End Sub
Danke
Public Sub Pivot_Aktualisieren()
Dim obj_wks As Worksheet
Dim obj_pv As PivotTable
For Each obj_wks In ActiveWorkbook.Worksheets
For Each obj_pv In obj_wks.PivotTables
obj_pv.PivotCache.Refresh
Next
Next
End Sub
Gruß Regina