Pivottabeller igen

ps. og kan man vælge elementer udfra en liste?

hvordan bærer du dig ad med at vælge flere elementer?

Jeg bruger da bare knappen - flere elementer og krydser dem af jeg ønsker...

Jeg bruger Excel 2002 - sp2...

Rart at se at der er kommet nye features i XP :-)

og så bruger jeg OLAP kuber - ved ikke om det betyder noget....?

Jeg har rodet lidt - har optaget en makro - smider den lige til dig - vil gerne erstatte der hvor den vælger et varenr med en for each "varenr i min liste" skal den markerer elementet i min pivottabel...

    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("[Varenr]")
        .AddPageItem "[Varenr].[Alle].[0A090105]", True
        .AddPageItem "[Varenr].[Alle].[1816]"
        .AddPageItem "[Varenr].[Alle].[2478]"
        .AddPageItem "[Varenr].[Alle].[3569]"
        .AddPageItem "[Varenr].[Alle].[4351]"
        .AddPageItem "[Varenr].[Alle].[7230]"

Det eneste jeg mangler udover at .addpageitem kun skal være der en gang er hvordan jeg erstatter numret til sidst med en variabel... alá

for each vare in range("varenumre")
        .AddPageItem "[Varenr].[Alle].[VARIABEL]", True

Er det forståeligt?

Dim pvtTable As PivotTable
    Dim cbeField As CubeField

    Set pvtTable = ActiveSheet.PivotTables(1)
    Set cbeField = pvtTable.CubeFields("[varenr]")
   
EnableMultiplePageItems = True
For Each vare In Range("ruller")
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("[Varenr]")
    strvare = "[Varenr].[Alle]." & "[" & vare & "]"
    On Error Resume Next
        .AddPageItem strvare, True
    End With
Next
End Sub

Den her virker til dels - bort set fra at den fjerner makeringe fra den før valgte og erstatter med den nuværende... hmmmm...

og så er den case sensitiv... hmmmm...

>Bak

Men jeg får kun lov at vælge flere hvis min Pivot bygger på en OLAP cube "MØG"

Ved du (eller andre) noget om hvordan man ændre formater i en OLAP?

Når jeg hiver data ind opfatter den to felter som tekst - men hvis jeg hiver de samme data direkte fra min SQL så er det tal...?????

x