Linket Cell fest in ComboBox eintragen
06.01.2004 15:17:53
Winni
habe wiedermal ein Problem. Ich generiere über ein Makro eine ComboBox in der die gelinkte Celle (Q7) autom. gesetzt werden soll. Leider muss ich per Hand die "LinketCell" setzen, was mache ich falsch ? Kann mir jemand helfen ?
Hier das Makro :
Sub ComboBox()
ActiveSheet.Shapes.AddOLEObject Left:=Range("O7").Left, _
Top:=Range("O7").Top, _
Width:=100, Height:=18, _
ClassType:="Forms.ComboBox.1"
With ActiveSheet.OLEObjects("ComboBox1")
.ListFillRange = "A1:A13"
.LinkedCell = Range("Q7").Select
End With
End Sub