Automatisk filter til powerpivottable

Hey hey.

Jeg prøver at lave et automatisk filter til min powerpivottable via vba.

Det virker fint hvis jeg kun har 1 værdi. og også hvis jeg har flere værdier, men lister hver enkelt værdi i koden.

Herunder er forsøget:

Filter(1 to 11)'ne er der hvor min værdi til powerpivot filtret er.

Jeg har egentlig 2 spørgsmål,
1, hvordan undgår jeg at skulle lægge mine 11 forskellige værdier ind efter hinanden, altså filter(1), filter(2) osv?

2, og den vigtigste, hvordan kan den sidste linje læse dette?
    altså
ActiveSheet.PivotTables("PivotTable2").PivotFields( _
        "[5Ansvar].[AnsvarKey].[AnsvarKey]").VisibleItemsList = Array( _
        "[5Ansvar].[AnsvarKey].&[" & Filter(i) & "]")

Her virker det hvis jeg laver en linje for hver, en for filter(1), en for filter(2) osv.

Men ikke for Filter(i)

hvordan løses dette?


Sub 123()
Dim Filter(1 To 11) As String

Filter(1) = Sheets("Slicercellvalue").Range("D6").Value
Filter(2) = Sheets("Slicercellvalue").Range("D7").Value
Filter(3) = Sheets("Slicercellvalue").Range("D8").Value
Filter(4) = Sheets("Slicercellvalue").Range("D9").Value
Filter(5) = Sheets("Slicercellvalue").Range("D10").Value
Filter(6) = Sheets("Slicercellvalue").Range("D11").Value
Filter(7) = Sheets("Slicercellvalue").Range("D12").Value
Filter(8) = Sheets("Slicercellvalue").Range("D13").Value
Filter(9) = Sheets("Slicercellvalue").Range("D14").Value
Filter(10) = Sheets("Slicercellvalue").Range("D15").Value
Filter(11) = Sheets("Slicercellvalue").Range("D16").Value

For i = 1 To 11
Next i
    ActiveSheet.PivotTables("PivotTable2").CubeFields(1).EnableMultiplePageItems = _
        True
 
    ActiveSheet.PivotTables("PivotTable2").PivotFields( _
        "[5Ansvar].[AnsvarKey].[AnsvarKey]").VisibleItemsList = Array( _
        "[5Ansvar].[AnsvarKey].&[" & Filter(i) & "]")

End Sub