combobox
09.08.2002 13:34:16
tom
kann mir jemand helfen und zwar will das die hier erzeugte combobox (siehe code) in die spalte z.b. C3 erstellt wird.
Dim cbo As OLEObject
Dim iCounter As Integer
Range("A1").Select
Set cbo = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=10, _
Top:=40, _
Width:=100, _
Height:=17)
For iCounter = 1 To 12
cbo.Object.AddItem Format(DateSerial(1, iCounter, 1), "ert")
Next iCounter
cbo.Object.ListIndex = 0
Gruß,
tom
Anzeige