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.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage