resultlist = evaluate("@unique(source)", doc)
wenn du die Werte aus einem doc direkt auslesen kannst
oder wenn du eine Werteliste übergibst
Function Unique(vSourceArray As Variant)
Dim iFound As Integer
Dim sTargetArray() As Variant
Redim sTargetArray(0) As Variant
sTargetArray(0) = ""
Forall sText In vSourceArray
iFound = False
Forall sNewText In sTargetArray
If sText = sNewText Then
iFound = True
Exit Forall
End If
End Forall
If Not iFound Then
If sTargetArray(0) ="" Then ' First time
sTargetArray(0) = sText
Else
Redim Preserve sTargetArray(Ubound(sTargetArray)+1)
sTargetArray(Ubound(sTargetArray)) = sText
End If
End If
End Forall
Unique = sTargetArray
End Function
eknori
