Fehler bei MSForms.combo
01.07.2021 08:42:22
Hans
warum bekomme ich bei "oCBox As MSForms.Combo" die Fehlermeldung: "Benutzerdefinierter Typ nicht definiert"
Sub ComboBOx_Masch_01()
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:=600.75, Top:=1155.75, Width:=12, Height:=13.5)
Set oCBox = oObj.Object
oCBox.LinkedCell = "Masch_01"
oObj.ListFillRange = "Artdaten.xls!Maschine"
End Sub