Ich habe ein Arbeitsblatt "Tabelle 4", in dem sich zehn verschiedene Pivottabellen befinden, die alle ein Feld namens "CMT_L2" beinhalten.
Bei Änderung dieses Feldes in einer der Pivottabellen möchte ich erreichen, daß auch alle anderen Pivottabellen dementsprechend angepasst werden.
Ich habe dem Worksheet "Tabelle 4" folgenden Quelltext zugewiesen, von dem ich hoffte, daß er diese Änderungen automatisch vornimmt. Sollte doch eigentlich so gehen, oder?. Bei mir passiert leider exakt NICHTS.
Wo liegt der Fehler?
Hier der Quelltext:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Dim strPivotAuswahl As String
Dim pt As PivotTable
strPivotAuswahl = Target.PivotFields("CMT_L2").CurrentPage
For Each pt In Me.PivotTables
If pt.Name Target.Name Then
pt.PivotFields("CMT_L2").CurrentPage = strPivotAuswahl
End If
Next pt
ErrorHandler:
Application.EnableEvents = True
End Sub
Danke,
Frank