einer Pivot-Tabelle Filterwechsel nach einem Cell Range

Question

ich viele Änderungen ausprobiert habe, aber nicht diese Arbeit ... Hilfe plz machen :)

Ich möchte nach einem Zellbereich eine Pivot-Tabelle Filter ändern .

Erstellen der Sub innerhalb der richtigen Blatt (Graficos). Habe versucht, es in "Sheet6" umzubenennen und auch den Code.

Pivot-Tabellenfeld: "Kunde"

Pivot Table Name: "sellin"

Blatt: "Grafico"

Fehler 1004 auf der Linie 21: Field.CurrentPage = NEWCAT

Anwendungsdefinierter oder objektdefinierter Fehler

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If Intersect(Target, Range("F1:F2")) Is Nothing Then Exit Sub 

Dim pt As PivotTable 
Dim Field As PivotField 
Dim NewCat As String 

Set pt = Worksheets("Grafico").PivotTables("sellin") 
Set Field = pt.PivotFields("Customer") 

NewCat = Worksheets("Grafico").Range("F1").Value 

With pt 
Field.ClearAllFilters 
Field.CurrentPage = NewCat 
pt.RefreshTable 
End With 

End Sub 

Answer 1

Marke Sicher, dass die Zelle F1 einen Wert hat und dass dieser Wert einer der Kundennamen ist. Dann läuft der Code gut.