Office: VBA - PivotField mit einem bestimmten Wert versehen - ???

Hallo zusammen,

ich haben ein Problem mit Pivot Tabellen.
Mein ExcelSheet hat mehrere Arbeitsblätter mit mehreren Pivottabellen, die alle auf einen Cache zugreifen.
Das aktualisieren und erweitern des zu pivotierenden Bereiches und aller P Tabellen funktioniert super.

Nun soll aber in jeder Pivot Tabelle der Zeilenfilter geändert werden (die Änderungen kommen aus einem anderen Arbeitsblatt wo man die Arbeitswochen angeben kann). Es soll im Beispielsheet nur die Woche 31 und 32 gefiltert werden.

Das Problem ist in der For Each Schleife und das ich irgendwie die Pivotfield auf "Reporting WW" setzen muss, um dan anschließend nach der Arbeitswoche 31 und 32 filtern zu können.
Und genau das geht irgendwie nicht.

Hat einer von Euch eine Idee wie man in einer For Each Schleife dem Pivotfield sagen kann wo es hingehört und welchen wert es haben soll.

Code:

Sub bla()
Dim ArbeitsMappe As Workbook, ArbeitsBlatt As Worksheet
Dim PivotTbl As PivotTable, PivotFld As PivotField, PivotItm As PivotItem
Dim WW01 As String, WW02 As String
Set ArbeitsMappe = ActiveWorkbook
WW01 = Worksheets("Data For Analysis").Range("A1") & "-" & Worksheets("Data For Analysis").Range("A3")
WW02 = Worksheets("Data For Analysis").Range("A1") & "-" & Worksheets("Data For Analysis").Range("A4")
For Each ArbeitsBlatt In ArbeitsMappe.Worksheets
    For Each PivotTbl In ArbeitsBlatt.PivotTables
        PivotTbl.PivotCache.Refresh
    Next
Next
For Each ArbeitsBlatt In ArbeitsMappe.Worksheets
    For Each PivotTbl In ArbeitsBlatt.PivotTables
        For Each PivotFld In PivotTbl.PivotFields
            For Each PivotItm In PivotFld.PivotItems
                Select Case "Reporting Week"
                    Case WW01
                        PivotItm.Visible = True
                    Case WW02
                        PivotItm.Visible = True
                    Case Else
                        PivotItm.Visible = False
                End Select
             Next PivotItm
        Next
    Next
Next
End Sub

Diese genaue Zuordnung funktioniert (Beispiel):

Code:

With ActiveSheet.PivotTables("PivotTable2").PivotFields("Reporting WW")
   .Orientation = xlPageField
   .Position = 1
   .EnableMultiplePageItems = True
   For Each ptItem In .PivotItems
       Select Case ptItem
           Case "gg"
               ptItem.Visible = True
           Case Else
                ptItem.Visible = False
      End Select
  Next ptItem
'End With

 

Hallo,

konnte das Problem lösen.

Schöne Grüße
Tauchmann