... dein Ausgangsfeld in Maske 1 muß Multiple Value sein...
um der Liste bereits einen Wert zuzzuweisen, nimmst du den ersten Wert der Liste, und weist den deinem Auswahlfeld zu. den Code hinerlegst du im Exiting deines Ausgangsfeldes
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Set docThis = ws.CurrentDocument.Document
If docThis.AuswahlFeld(0) = "" Then
docThis.Auswahlfeld = docThis.Ausgangsfeld(0)
End If
... in der Schaltfläche sieht es dann so ähnlich aus...
' # LS
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Set docThis = ws.CurrentDocument.Document
If docThis.Ausgangsfeld(0) <> "" Then
docThis.Auswahlfeld = docThis.Ausgangsfeld
End If
... oder mit Formel
FIELD Auswahlfeld := Ausgangsfeld;""
... wichtig ist, daß die betroffenen Felder Multiple Value sind...
... wenn mit Aliaswerten gearbeitet wird, dann müssen natürlich die verwendet werden...
ata