Comboboxen füllen
22.07.2003 09:23:35
Felix Staab
ich habe ein kleines Problem. Es wurde ein VBA-Formular "geschrieben", welches auch funktionert. Auf diesem Formular befinden sich u.a. auch 6 ComboBoxen. Diese sollen bei jedem Formularstart gefüllt werden. Jedoch nur diese 6 ComboBoxen. Aus verschiedenen Recherchen denke ich, dass ich der Lösung eigentlich fast zum greifen nah bin, ich ähne sogar wo der Fehler liegt, jedoch weiß ich nicht mehr weiter. Wäre schön, wenn jemand eine Idee oder einen Vorschlag hätte.
Hier der Code der aufgerufen wird und die Boxen füllen soll:
Sub ComboBoxen_fuellen()
Dim Combo as Control
For Each Combo In UserForm1.Controls
If TypeName(c) Like "UserForm.ComboPro*" Then
With Combo 'Hier ist m.E. nach der Fehler...
.AddItem "150%"
.AddItem =125%"
.AddItem "100%"
.AddItem "75%"
.AddItem "50%"
.AddItem "25%"
End With
End If
Next Combo
End Sub