oleobject
23.05.2008 18:03:42
ralf
habe mit diesen code ein combobox.oleobject erstellt. nun habe ich das problem
das ich nicht wie bei einer uf.combobox einfach über select case die ausgewählte
eingabe zum beispiel "einkommen" auswählen kann und zb ufeinkommen.show
aufrufen kann.
Sub NewCboBox()
Dim cbo As OLEObject
Set cbo = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=40, _
Top:=40, _
Width:=170, _
Height:=20)
With cbo.Object
.AddItem "Einkommen"
.AddItem "Fixkosten"
.AddItem "Auto"
cbo.Object.BoundColumn = 0
End With
End Sub
gruss ralf