Sub Click(Source As Button) Dim item As notesitem Dim values As Variant values = doc.ma_stellennr values(1) = 123 Set item = doc.GetFirstItem("ma_stellennr") item.values = values End Sub
Sub Click(Source As Button) Dim item As notesitem Dim values As Variant Dim x As Long x = 123 values = doc.ma_stellennr values(1) = x Set item = doc.GetFirstItem("ma_stellennr") item.Values = values End Sub