Listbox mehrere Auswahlen anzeigen

Computer: Software & Programmierung Office Software
1

Hallo.
(Benutze Userform)
Ich habe eine LISTBOX, wo ich die einstellung für mehrer Auswahlen aktiviert habe.
Wie kann ich die ausgewählten jetzt zb. in Tabelle 1 (Zb in A1) unterbringen?

Danke

2

(Benutze Userform)
Ich habe eine LISTBOX, wo ich die einstellung für mehrer
Auswahlen aktiviert habe.
Wie kann ich die ausgewählten jetzt zb. in Tabelle 1 (Zb in
A1) unterbringen?

Hallo Anton,
probier mal das Nachstehende, kannst ja ein anderes Ereignis als UF_Click nehmen.

Private Sub UserForm\_Click()
 Dim index As Long, zeile As Long
 For index = 0 To ListBox1.ListCount - 1
 If ListBox1.Selected(index) Then
 zeile = zeile + 1
 Cells(zeile, 4) = ListBox1.List(index)
 End If
 Next
End Sub

Wenn alle Eintrgäge nach A1 sollen:

Private Sub UserForm\_Click()
 Dim index As Long, zeile As Long
 For index = 0 To ListBox1.ListCount - 1
 Cells(1,1)=""
 If ListBox1.Selected(index) Then
 Cells(1,1) = Cells(1,1) & " " & ListBox1.List(index)
 End If
 Next
End Sub

Gruß
Reinhard