Ich versuche eine Userform dynamisch mit comboboxen zu bestücken
Die_Sub die das tun soll seht Ihr hier:
Sub hinzufügen()
Dim CBox As MSForms.ComboBox
Dim box As Object
Dim i As Integer
For Each box In UserForm1.Controls
If TypeName(box) = "ComboBox" Then
i = i + 1
End If
Next box
Load UserForm1
Set CBox = UserForm1.Controls.Add("Forms.ComboBox." & i, , True)
With CBox
.Left = 20
.Top = 60 + 10 * i
.Width = 100
.Height = 20
.Name = "ComboBox" & i
.AddItem "test"
End With
UserForm1.Show
End Sub
Beim ersten Aufruf der_Sub wird eine Combobox eingefügt beim zweiten Aufruf
erscheint die Fehlermeldung "Ungültige Klassenzeichenfolge".
Bin wie immer für alle Anregungen und Tips dankbar.
Gruss Bernd