Kombobox füllen
23.10.2006 17:31:48
Rainer
möchte eine Kombobox (aus der Steuerelement Toolbox) immer neu füllen.
Private Sub ComboBox19_DropButtonClick()
ComboBox19.Clear
Dim z As Integer
z = 6
Do While Sheets("Liste Verladung").Cells(z, 1) <> ""
ComboBox19.AddItem Sheets("Liste Verladung").Cells(z, 1)
z = z + 1
Loop
End Sub
So kann ich zwar füllen, aber keine Wert wird durch Klick übernommen. Wo liegt der Fehler?
Gruss Rainer
Anzeige