Hallo zusammen,

ich komme bei meinem aktuellen Vorhaben leider nicht weiter.

Und zwar möchte ich eine Art Dropdown-Liste mit Mehrfachauswahl erstellen.

Dazu habe ich folgenden Code erstellt, bin leider ein absoluter Anfänger was VBA betrifft.

Ich möchte gern mit mehreren CommandButton in einer Spalte, die untereinander angeordnet sind,
ein und dieselbe Liste einblenden und nach der Auswahl wieder ausblenden, und meine Auswahl soll in die Zelle neben dem angewählten CommandButton ausgegeben werden.

Könnt ihr mir weiterhelfen?

'** Auswahl in Listbox eintragen
Private Sub UserForm_Initialize()
ListBox1.AddItem "a"
ListBox1.AddItem "b"
ListBox1.AddItem "c"
ListBox1.AddItem "d"
ListBox1.AddItem "e"
ListBox1.AddItem "f"
ListBox1.AddItem "g"
ListBox1.AddItem "h"
ListBox1.AddItem "i"
End Sub
'** An-un Abwählen der Userform
Private Sub CommandButton1_Click()
If UserForm1.Visible Then
UserForm1.Visible = False
Else
UserForm1.Visible = True
End If
End Sub
'** Eintragen der gewählten Einträge Zelle
Private Sub ListBox1_Change()
Dim i As Long, s As String

For i = 0 To 8
If ListBox1.Selected(i) Then
s = s & ListBox1.List(i) & ";" & Chr(10)
End If
Next i

'** Ausgabe der gewählten Listeneinträge in Zelle


End Sub


Gruß
Tobias