wenn ich auf einem Tabellenblatt den Inhalt der Zelle B1 bearbeite, soll sich automatisch die Pivottabelle auf diesem Tabellenbaltt aktualisieren.
Welchen Code muss ich dafür nehmen?
Viele Grüße
Hans
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ptPivottabelle As PivotTable
If Target.Address = "$B$2" Then
'alle Pivots in diesem Sheet refreshen
For Each ptPivottabelle In ActiveSheet.PivotTables
ptPivottabelle.RefreshTable
Next
End If
End Sub