2. Versuch, anders formuliert
21.01.2003 11:22:21
Felix
habe eine Listbox in einer Userform mit der Einstellung "MultiSelectExtendet".
In der Liste stehen Zahlen von 1 - 30
Wenn ich nun mehrer Einträge auswähle, möchte ich jede ausgewählte Zahl in der der entsprechenden Zeile in "Spalte A" einfügen.
z.B. Auswahl in Liste: 1,5,8,9
dann Eintrag in Tabelle: A1=1 in A5=5 in A8=8 in A9=9
ist das möglich?
Habe es mit folgendem Code versucht.
Der schreibt aber nur untereinander und immer beginnend in "A1" unabhängig von der Auswahl.
Private Sub cmdEintragen_Click()
Dim iRow As Integer, iCounter As Integer
For iRow = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iRow) Then
iCounter = iCounter + 1
Cells(iCounter, 1).Value = Left(ListBox1.List(iRow), 2)
End If
Next iRow
Unload Me
End Sub
Vielen Dank im voraus
Gruß
Felix
Anzeige