Jag har statistik som ligger i en pivottabell. För att användaren inte ska förstöra något är pivotabellen på ett dolt blad. Det enda blad som användaren ser har tolv knappar en för varje månad. Användaren väljer en månad t ex 06 (dvs juni). Jag ska då gå in i pivottabellen och ange att alla månader 01-06 ska ligga till grund för den figur jag sedan skriver ut på bladet användaren ser. Jag vet att man måste ha åtminstone en månad för att inte få körfel samt att månadsnumret måste göras om till en text ("06" för månad 06) när man ska  aktivera  pivotitem från en viss månad. Hur gör man det på ett bra sätt?

 Så här gör jag nu:

PF.AutoSort 1, PF.Name

    For Each PI In PF.PivotItems

    If PI.Name = "01" Then

        PI.Visible = True

        Else

        PI.Visible = False

        End If

    Next PI

    If i > 2 Then

        For Each PI In PF.PivotItems

            If PI.Name = "01" Or PI.Name = "02" Then

                PI.Visible = True

            End If

        Next PI

    End If

Sedan får jag hålla på så till dess alla tolv månaderna är genomgågna. HEMSKT eller hur?