ich habe einen Code um einen Berichtsfilter, den ich für eine Pivot auswähle auf eine zweite Pivot (PivotTable6) zu übertragen. Das Ausgabefeld des Berichtsfilters ist B35. Das funktioniert auch. Allerdings nur, wenn ich auf einen Namen filtere. Möchte ich wieder (Alle) filtern, funktioniert mein Code nicht.
Kann mir hier jemand weiterhelfen?
Hier noch der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B35:B35")) Is Nothing Then Exit Sub
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
Set pt = Worksheets("Tabelle1").PivotTables("PivotTable6")
Set Field = pt.PivotFields("Name")
NewCat = Worksheets("Tabelle1").Range("B35").Value
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
End Sub
Gruß