Hallo ich möchte eine combobox mit den Werten eines Array befüllen. Aus einem anderen Forum habe ich folgenden Hinweis erhalten;
For i = 1 To 14
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False _
, DisplayAsIcon:=False, Left:=10 + verschieben, Top:=495 + Kapazitaet, Width:=100, Height:=25).Select
For k = 1 To UBound(fa)
Worksheets(1)("ComboBox" & i).AddItem fa(k).nr
Next k
verschieben = verschieben + 110
Next i
Ich kriege aber jedes mal die Meldung :Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht |