ComboBoxen in Formular mit Schleife durchlaufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: ComboBoxen in Formular mit Schleife durchlaufen von: Eduard
Geschrieben am: 23.03.2005 14:15:04

Hallo.

Habe ein Formular mit 80 ComboBoxen. Da sie alle mit den gleichen Werten initialisiert werden suche eine Möglichkeit, um die ComboBoxen per Schleife zu durchlaufen.

Hatte da an sowas gedacht wie:

For Each ComboBox In UserForm1
UserForm1.ComboBox.AddItem "text"
Next

Kann mir jemand einen Tipp geben?

Vielen Danke und Lieber Gruß,
Eduard

Bild


Betrifft: AW: ComboBoxen in Formular mit Schleife durchlaufen von: Hajo_Zi
Geschrieben am: 23.03.2005 14:17:14

Hallo Eduard,

hast Du schon mal in die Recherche geschaut nach Controls?


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: ComboBoxen in Formular mit Schleife durchlaufen von: Eduard
Geschrieben am: 23.03.2005 14:36:44

Danke Hajo.
Mir war die umfangreiche Recherchefunktion hier nicht bekannt.
Folgender Code hat mein Problem gelöst ;-)


Sub CB_Füllen()
    Dim ctr As Control
    For Each ctr In UserForm1.Controls
        If ctr.Name Like "ComboBox*" Then
            With ctr
            .AddItem "150%"
            .AddItem "125%"
            .AddItem "100%"
            .AddItem "75%"
            .AddItem "50%"
            .AddItem "25%"
            End With
        End If
    Next ctr
    UserForm1.Show
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "ComboBoxen in Formular mit Schleife durchlaufen "