Listbox Werte mit Komma trennen
12.04.2020 12:11:37
MarC
ich habe gerade eine Multiselect Listbox mit einer Textbox verknüpft und möchte das die einzelnen Begriffe, welche in die Textbox übertragen werden, mit einem Komma und einem Leerzeichen getrennt werden. Mein Problem ist das bei mir immer ein Komma und leer eingetragen werden und nicht nur zwischen zwei Begriffe. Wie macht man denn so was ich komme gerade nicht drauf?
Mein Code sieht aktuell so aus:
Private Sub cmb_Uebernehmen_Click()
Dim i As Integer
uf_Stelle_anlegen.TextBoxStandort.Value = ""
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
uf_Stelle_anlegen.TextBoxStandort.Text = uf_Stelle_anlegen.TextBoxStandort.Text _
& .List(i) & ", "
End If
Next i
End With
Unload Me
End Sub