anbei seht ihr, wie ich habe meine Listbox gefüllt bekommen, durch Hilfe einer Zusatztabelle.
Private Sub UserForm_Initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
'Schleife zum Füllen der Listbox mit den Daten aus Blatt "Abkürzungen"
'Spalte A ab Zeile 2 bis zur letzten gefüllten Zeile
For Wiederholungen = 2 To Sheets("Abkürzungen").Range("A65536").End(xlUp).Row
ListBox1.AddItem Sheets("Abkürzungen").Cells(Wiederholungen, 1)
Nun mein Anliegen,
kann mir wer behilflich sein im aktiveren der Listbox?
Private Sub CommandButton1_Click()
...
Habe eine Multi Listbox (in einer Userform), sodass mehrere Daten ausgewählt werden können, welche jetzt am besten auch in nur eine Zelle übernommen werden sollen, dass heisst: Wähle ich bspw. folgende Dinge aus meiner Listbox an:
x Hallo
x zusammen
dann sollte, wenn ich diese beiden habe bspw. ausgewählt und den Commandbutton1 drücke, diese Eingaben so erscheinen: Hallo, Zusammen und das ganze in nur einer Zelle.
Die Spalte in der die Auswahl eingepflegt werden soll ist Spalte G.
Wäre super, wenn mir jemand Rat geben könnte und weiterhin einen schönen Restsonntag.
Liebe Grüße.