Linked Cell
26.07.2002 08:49:21
Hendrik
habe versucht die linked cell mit dem unten stehenden code zuzuordnen. das funktioniert aber nicht. :(
Sub combo()
Dim oObj As OLEObject
Dim oCbox As MSForms.ComboBox
Dim cell As Range
Set oObj = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=243, _
Top:=75, _
Width:=72, _
Height:=18)
Set oCbox = oObj.Object
oCbox.LinkedCell = Range("A1")
oObj.ListFillRange = Range("B1:B3").Address
oCbox.ListIndex = 0
End Sub
kann mir mal bitte jemand sagen, was daran falsch ist.
danke
hendrik