Pivot Filter durch Makro

[SON09]

Hallo :) 

ich bräuchte eure Hilfe bei einem Problem wo ich nicht weiter komme. 
Ich hab eine Zelle G5 wo ein Wert drin steht, der sich durch den Benutzer immer wieder ändern kann z.B 2345
Ich wollte ein Makro schreiben, dass wenn der Benutzer die Zelle ändert, dass dieser Wert bei Mehreren Pivot Tabellen in den Filter hinein kommt (als Filter), jedoch aktualisiert es nur bei der Letzten. 

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("G5")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
   

    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Gruppenprotokoll")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Diagramm")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Artikel")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Koste")

    Set xPFile = xPTable.PivotFields("aktuelle Gruppe")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
   

Weiß jemand wie ich das beheben könnte ? 
End Sub

[Elex]

Hi

jedoch aktualisiert es nur bei der Letzten.

    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Gruppenprotokoll")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Diagramm")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Artikel")
    Set xPTable = Worksheets("Gruppenprotokoll").PivotTables("Koste")

Was vermutest du selbst nach Durchlauf der 4 Zeilen was am Ende in xPTable steht.
Entweder die nachfolgende Schritte noch drei mal einfügen oder mit einer Schleife arbeiten.

Versuchen und wenn du nicht klar kommst melden.

Gruß Elex

[SON09]

Hat funktioniert Danke