Und weil das warscheinlich außer Axel und Bernhard und den anderen Cracks jetzt keiner verstanden hat hier ein Beispiel:
Dim userlist list as string
Redim user(0) As Variant
Count = 0
while Not (userdoc is Nothing)
count = count +1
Redim Preserve user(count)
user(count) = userdoc.keyvalue(0)
userlist(userdoc.keyvalue(0))=userdoc.UniversalID
set userdoc = dc.getnextdocument(userdoc)
wend
response = ws.Prompt (PROMPT_OKCANCELLIST, _
"Empfänger", _
"Bitte wählen Sie einen Empfänger aus", _
user(0), user)
UNidValue = Userlist(Response)
Hope That helps
@Axel Die Lösung hat den Vorteil, das du nicht mit der Anzeige der Daten rummanipulieren musst. Der Nachteil ist natürlich wenn der Schlüssel mehrfach vorkommt, dann geht das so in die Hose, weil dann der letzte gefundene Wert zieht.