Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
vpeuvion
in reply to: m.huester

Yes you are right, strangely, you have to select the value once manually for it to work afterwards.
Try this modified code, it works fine on my side:

oPara = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
Try
  Param = Parameter.Param("SML")
Catch
  oPara.AddByValue("SML", "", kTextUnits)
  MultiValue.SetList("SML", "Wert1", "Wert2", "Wert3")
  Parameter.Param("SML").Value = "Wert1"
End Try

If iProperties.Value("Summary", "Keywords") = "" Then
Parameter.Param("SML").Value = InputListBox("bitte doppelklick auf Auswahl", MultiValue.List("SML"), SML, Title := "SML nach Vornummer", ListName := "Liste")
iProperties.Value("Summary", "Keywords") = Parameter.Param("SML").Value
iLogicVb.UpdateWhenDone = True
Parameter.UpdateAfterChange = True
InventorVb.DocumentUpdate()
End If

Vincent.