ComboBox füllen
26.09.2005 16:36:04
Christine
ich habe ein Problem mit einer ComboBox, und schon im Archiv gestöbert, aber bisher nichts gefunden. Vielleicht könnt ihr mir helfen?
Ich möchte eine ComboBox erstellen, welche die Werte einiger Zellen enthält.
Sub ComboTest()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=576, Top:=60, Width:=149.25, Height:= _
17.25).Select
For i=1 to 5
ComboBox1.AddItem (Cells(1, i))
Next
End Sub
Ich bekomme hier immer den Fehler "424 - Objekt erforderlich"
Wenn ich es aber mit
OLEObjects("ComboBox1").AddItem (Cells(1, i))
in der For-Schleife mache, bekomme ich "OLEObjects" makiert mit dem Hinweis "
Sub oder
Function nicht definiert".
Hat vielleicht jemand einen Tip?
Vielen Dank schon mal.
Christine.