VBA: additems für 40 Comboboxen automatisieren?

Computer: Software & Programmierung Visual Basic
#1

Hallo,
im userform.initialize-Ereignis werden für 40 Comboboxen gleichlautende additems benötigt, z.B.:

With cbo1
.AddItem „Apfelkuchen“
.AddItem „Graubrot“
.AddItem „Himbeerkuchen“
pp
End With

Kann man das irgendwie mit einer Schleife oder sonstwie verwirklichen oder muss man 40 x für die jeweilige Box kopieren? Die Namen lauten fortlaufend cbo1 bis cbo40.

Danke und Gruß
Wilhelm

#2

Hallo Wilhelm,

wenn Deine Namen der Comboboxen alle mit ‚cmb‘ anfangen, könnte das z.B. so aussehen:

Private Sub eintragen()
 Dim ctrl As Control
 For Each ctrl In Controls
 If Left(ctrl.Name, 3) = "cmb" Then
 ctrl.AddItem "Dein Text"
 End If
 Next
End Sub

Gruß Rainer