ich möchte den Filter einer Pivot-Tabelle per Makro definieren, was auch funktioniert - Folgender Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("AT2:AT2")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Kampagnen2").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Kampagnen")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
Nun soll dieser Wert (AT2) auch in einer zweiten Pivot (PivotTable4); im selben Arbeitsplatz hinterlegt werden.
Wie bekomme ich die Werte verknüpft?
THX Peter