Excel VBA: Wie wird ein generisches Steuerelementobjekt in ein ComboBox-Objekt umgewandelt?
Ich muss ein generisches VBA-Formularsteuerungsobjekt in ein ComboBox-Objekt umwandeln, damit ich ihm Elemente hinzufügen kann. Mit dem generischen Objekt kann ich keine Elemente in meine vorhandenen Listen einfügen
Dim ctlCurrent As MSForms.Control
For Each ctlCurrent In frmItemInput.Controls
If TypeName(ctlCurrent) = "ComboBox" Then
Dim lbCurrentComboBox As MSForms.ComboBox
lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another
' Adiciona os itens necessários
lbCurrentComboBox.AddItem ("R")
lbCurrentComboBox.AddItem ("D")
End If
Next ctlCurrent
Mein Problem ist: Ich habe Tonnen von ComboBoxen in meinem Formular und ich muss für alle die gleichen Optionen hinzufügen. Ich würde das gerne programmatisch machen.