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
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
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „JanPhilipp85“ ()