Hallo Axel,
lt. Notes-R4.5-Hilfe müsste "PickList" mit Hilfe von Evaluate in Buttons funktionieren. Hier der Code:
Sub Click(Source As Button)
Dim ergebnis As Variant
Const liste$ = |@PickList
([Custom];"BNK028_MASTER":"ksc/KSCPerso.nsf";"PLName";"MITARBEITER";"Wählen Sie
den Berater aus";4)|
ergebnis = Evaluate(liste$)
Messagebox(ergebnis)
End Sub