Combo_Box1
Andy
habe einige Fragen zur Combo-Box1:
Kann ich die variabel befüllen? Mein Gedanke war eine Range zu definieren und mit Hilfe dieser Range Die Combo_Box1 voll zu machen.
Ungefähr so - funktioniert leider nicht.
Sub combobox()
Dim cmd As combobox
Dim i As Integer
Dim range1 As Range
Sheets("tabelle1").Range("a1").Select
Range("a1").Select
Set range1 = Range(Selection, Selection.End(xlDown))
For i = 1 To 3
Set cmd = ActiveSheet.OLEObjects.Add(classtype:="Forms.combobox.1", Left:=10 + (i * 100), Top:=10, Width:=80, Height:=25).Object
cmd.ListFillRange = range1
Next i
End Sub
Laut dem Buch von Herber kann man die Box mit einer statischen Range (cmd.ListFillRange = "Tabelle1!a1:a10") befüllen. Wieso geht es wie ich mir das vorstellte nicht?
Kann ich die Combo_box irgendwie umtaufen, so dass wenn ich mehrere habe zielgerichtet ansprechen kann?
Die Werte die der User dann auswählt kann ich mit combo_box1.value weiterverwenden?
Vielen Dank fuer Eure Tips
Amdy
Anzeige