Hallo,

da mir letztens schon sehr gut geholfen wurde, bitte ich nochmals um Rat.

Ich habe mehrere Comboboxen

combo1
combo2
combo3

Die Werte, der Comboboxen, sollen untereinander einer Listbox aufgeführt werden. Dies geschieht durch einen Commandbutton.

Das klappt wunderbar wenn die Comboboxen mit Werten gefüllt sind. Ist aber eine frei oder "unbenutzt"
entsteht eine Lücke in der Listbox.

Da die Listbox später sauber in eine Tabelle übertragen werden soll, darf es zu keiner Lücke kommen. Sondern die Werte müssen untereinander gelistet werden.

Ich habe es mit einer If funktion probiert.

If Como3 is nothig then
msgbox ("test")
else list1.additem combo3

EDIT

Letztendlich möchte ich die Werte, der verschiedenen Comboboxen, in Excel untereinander ohne Lücken auflisten.

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("test")

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.combo1.Value
ws.Cells(iRow, 1).Value = Me.combo2.Value



das Problem an der Sache ist nur, das er nicht alle Werte nimmt und untereinander auflistet sondern immer nur die letzte Combobox.

Deswegen kam ich auf die Listbox, denn da funktioniert das untereinander auflisten problemlos. Nur leider mit "Lücken" und wohlmöglich kann man sich das Ganze auch noch sparen.

Vielleicht weiß jemand weiter...

LG

Moin





Das machst du mit all deinen Comboboxen


Grüße

Thirst of all,

danke für die schnelle Antwort!

Habe das mit "Then" korrigiert. Dennoch bleibt der Fehler mit der "Lücke" in der Listbox bestehen.



For i = 0 to Combobox1.Items.Count -1
If Not Combobox1.Items(i).Text = ""
Hier kam die Fehlermeldung zwecks fehlendem THEN
Listbox1.Items.add(Combobox1.items(i).Text)
End If

Habe es nun mit Commadbuttons gelöst, welche die Listbox nun füllt. Ist für mich somit gelöst.

Vielen Dank!

LG