Sub CommandButton1_Click()
Auswahl.Hide
Dim i As Integer
For i = 0 To Auswahl.ListBox1.ListCount - 1 'für jede Zeile der Listbox1
Auswahl.ListBox1.Selected(i) = True
'AuswahlPerson entspricht dem Array
AuswahlPerson(i) = Auswahl.ListBox1(i)
Next i
End Sub
Hallo Zusammen,
in einer Userform (Namens "Auswahl" befindet sich eine Listbox1, welche über eine Schleife erfolgreich befüllt wird.
Anschließend kann durch den Anwender eine Mehrfachauswahl getroffen werden.
Diese Mehrfachauswahl möchte ich dann in einem Array speichern, welche ich dann zurück an ein Modul übergeben möcht.
Das Array habe ich bereits in einem Modul als Public AuswahlPerson deklariert.
AKtuell sieht mein Code wie beigefügt aus.
Leider funktioniert das ganze nicht. Kann mir jemand sagen, was ich hier falsch mache?
VIelen Dank.
|