|
Ich muss in einer Word-Userform Comboboxen aus Excel befüllen.
Dieser Code funktioniert wenn ich für jede ComboBox diesen Code kopiere und die Nummer der ComboBox anpasse.
With ActiveForm
ComboBox1.Clear
For i = 2 To letztzeile
Eintrag = excelsheet.Cells(i, 1).Value
With ComboBox1
.Additem (Eintrag)
End With
Next
End With
Da ich aber 160 ComboBoxen mit den gleichen Daten befüllen muss, dachte ich, ich könnte diesen Code einfach in eine Schleife legen.
z = 1
While z <= 5
cb = "ComboBox" & z
With ActiveForm
cb.Clear
For i = 2 To letztzeile
Eintrag = excelsheet.Cells(i, 1).Value
With cb
.Additem (Eintrag)
End With
Next
End With
z = z + 1
Wend
Fehlermeldung – wenn ich Dim cb As Variant deklariere
Object erforderlich - 424
Fehlermeldung – wenn ich Dim cb As Object deklariere
Objektvariable oder With-Blockvariable nicht festgelegt – 91
Was mache ich falsch?
Schönen Tag
wegu1
P.S.: Oder gibt es eine einfache Lösung - Alle Boxen greifen auf die gleiche Excel-Tabelle zu und sollen den gleichen Inhalt bekommen.
|