True fra dropdown i pivot

prøv med denne funktion, der kan bruges direkte i regnearket
skriv
=itemtest(A4)
A4 skal være det felt du ønsker et resultat fra. dvs at Time ligger i A4.


Function itemtest(felt As Range)
Dim pti As PivotItem, test As String
For Each pti In felt.PivotTable.PivotFields(felt.Text).PivotItems
    test = test & "; " & pti.Name
Next
itemtest = Mid(test, 3)
End Function

Ved nærmere eftertanke tror jeg ikke at det er hvad du skal bruge, men så skal jeg bruge flere oplysninger. Hvad hedder feltet der indholder værdierne der skal chekkes ?

Hej bak

Jeg har tjekket koden, men den skriver alle values fra dimensionen, ikke kun dem som har flueben (værdien true).
Kan den laves som makro i stedet for funktion?
Dimensionen hedder Time og ligger i B10 og arket hedder Pivot

Sub itemtest()
Dim pti As PivotItem, test As String
For Each pti In Worksheets("Pivot").Range("B10").PivotTable.PivotFields("Time").PivotItems
    If pti.Visible = True Then test = test & "; " & pti.Name
Next
Worksheets("Pivot").Range("A1") = Mid(test, 3)
End Sub

Smukt Bak, det funker bare. Smid et svar så du kan få nogle point.

1000 tak for hjælpen
Faithless

godt :-)