Ich habe eine Listbox welche sich die Werte aus einer Tabelle holt, bei dieser kann man in der Userform mehrere Einträge makieren und soll via Button in eine neue Zelle eintragen. Habe es hinbekommen das er einen Wert in eine Zelle und den nächsten Wert darunter. Ich würde gerne aber alle markierten Werte in eine Zeile mit "," getrennt.
Hier mal der code-schnipsel
Private Sub CommandButton3_Click()
Dim i, zeile As Long
With Worksheets("test")
' erste leere Zeile ermitteln
zeile = .Cells(.Rows.Count, "A").End(xlUp).row + 1
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
'zeile ist die Zeile in der die markierten Werte
'aus der Listbox untereinander eingetragen werden
zeile = zeile + 1
.Cells(zeile, "A") = ListBox2.List(i)
End If
Next
End With
End Sub