Hallo Zusammen,
folgendes Problem:
Ich habe eine Listbox1 mit einer Multiselect-Auswahl und möchte die selektierten Strings (Namen) in das Array "Auflistung einspeichern.
Das Array kann variable Anzahl an Einträgen besitzen.
Folgend mein Ansatz:
Private Sub Weiter_Button_Click()
einzelpersonkalkulieren.Hide
Dim i As Integer
Dim Auflistung()
With ListBox1
For i = 0 To ListBox1.ListCount - 1
ReDim Preserve Auflistung(i)
If ListBox1.Selected(i) Then
Auflistung(i) = ListBox1.Value
End If
Next
End With
End Sub
Leider speichert er keinen String in ListBox1.Value, woran kann dies liegen?
Hoffe auf Hilfe.
Vielen Dank.
|