Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "ComboBoxen in Formular mit Schleife durchlaufen "
Über Doppelklick aus Preisliste in Bestellformular einfügen Rechnungsformular mit Zugriff auf Kunden- und Artikelstamm
Automatische Passworteingabe in Internet-Formular Formulardaten aus Zellen an Webformular und Ergebnis eintragen
Nur speichern, wenn alle Formularfelder ausgefüllt sind In einer Schleife auf Elemente einer UserForm zugreifen
CheckBoxes in UserForms in eine Schleife einbinden Gruppe von UserForm-ListBoxes über eine Schleife ansprechen
UserForm-Optionsfelder über eine Schleife zurücksetzen