Hallo Forum,
in einem kleinen VBA-Programm erstelle ich eine Combobox „ComboBox2“, die in die aktive Exceltabelle eingefügt wird. Ich möchte diese Combobox mit einer Zelle der aktiven Exceltabelle verlinken (LinkedCell-eigenschaft). Nun wird die Eigenschaft LinkedCell nicht als Element der Klasse Combobox aufgelistet. Wenn man im Entwurfsmodus auf die Combobox clickt und sich die Eigenschaften anzeigen lässt, wird LinkedCell im Eigenschaftsfenster angezeigt.
Wie kann ich diese Eigenschaft über VBA ansprechen?
Code:
Dim Cb As MSForms.ComboBox
Dim Zeile As Integer
…
Set Cb = .OLEObjects.Add(ClassType:=
„Forms.ComboBox.2“, Link:=True, _
DisplayAsIcon:=False, Left:=46, Top:=172,
Width:=54, Height:=21.75).Object
For Zeile = 2 To 11
Cb.AddItem ActiveSheet.Cells(Zeile, 40)
Next Zeile
Cb.Name = „ComboBox2“
…
Vielen Dank für die Hilfe.