Spalte in Combobox übernehmen
03.02.2004 08:07:10
Ralf
trotz Recherchen und viel Besispielcode scheitere ich an dem Versuch, aus dem Tabellenblatt "x" bestimmte Zellen zB.: b10-b31 in eine Combobox zu übernehmen, die nach dem Klick auf einem CommandButton gestartet werden soll.
Private Sub CommandButton7_Click()
UserForm_Initialize
Eingabe.Show
End Sub
Private Sub UserForm_Initialize()
Dim i%
With Worksheets("da")
ComboBox1.List = .Range(.Cells(10, 2), .Cells(31, 2)).Value
End With
i = 10
Do Until IsEmpty(Cells(i, 1))
ComboBox1.AddItem Cells(i, 1)
i = i + 1
Loop
End Sub
Ergebnis: Laufzeitfehler 424, Objekt erforderlich!
Wo liegt mein Fehler? Danke für die Antworten.
Ralf
Anzeige