Hallo,
ich habe bereits einen Code zu befüllen meiner Comboboxen (.AddItem), würde aber gern diese über einen zweiten Weg (aus der Tabelle) befüllen.
In dachte einen Weg gefunden zu haben, über eine weitere else, elseif Anweisung. Scheitere aber immer an irgendwelchen Formfehlern. Wie müsste ich es schreiben damit die Comboboxen zusätzlich auch aus den Zeilen bzw. Zellen befüllt werden, also auch den anderen Boxen diese Informationen zur Verfügung stehen?
Danke für eure Hilfe
Private Sub UserForm_Initialize()
Dim ObCb As Object
For Each ObCb In Me.Controls
Select Case TypeName(ObCb)
Case "ComboBox"
If ObCb.Tag = "A" Then
With ObCb
.AddItem ("M. XTA 2")
.AddItem ("M. XTE")
.AddItem ("M. X-Line")
.AddItem ("M. XTA 2+")
.AddItem ("M. XFA + E")
.AddItem ("M. X Multi")
.AddItem ("C. Eco+ HD3")
.AddItem ("Double Coin")
End With
End If
End Select
Next ObCb