ListBox mit MultiSelect in eine Zelle auslesen

Computer: Software & Programmierung Office Software
1

Hallo Experten,

ich müsste mehrere Elemente einer ListBox in eine einzelne Zelle auslesen.
Folgender Code gibt mir nur leider zurück, ob ein bestimmter Wert ausgewählt wurde oder auch nicht (WAHR/FALSCH) und schreibt die Werte in mehrere Zellen untereinander:

Private Sub CommandButton1_Click()
ActiveCell.Select
For i = 0 To ListBox1.ListCount - 1
ActiveCell.Formula = ListBox1.Selected(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Wie bekomme ich die eigentlichen Einträge und das Ganze auch noch in eine einzelne Zelle (getrennt durch ein Komma)??
Hoffe mir kann jemand helfen! Vielen Dank im Voraus!

Gruss,
Philip

2

die einzelnen Einträge bekommt man mit der Eigenschaft „List(Elementnummer)“
folgende Prozedur gibt die ausgewählten Einträge der Listbox in die aktive Zelle aus

Private Sub CommandButton1\_Click()
Dim ausgabe As String
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
 If ausgabe "" Then ausgabe = ausgabe & ","
 ausgabe = ausgabe & ListBox1.List(i)
End If
Next i
ActiveCell.Value = ausgabe

End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Vielen Dank!

Funktioniert perfekt! Hast mir sehr geholfen!

gruss,
Philip