✔ Mehrere ComboBox (en) in einem Formular

[Pinky]

Hallo Leute,

ich habe ein Formular geschreiben. In dem kommen mehrere ComboBoxen vor. Bei einer habe ich folgenden Code gebraucht:

Private Sub UserForm_Activate()
    UserForm1.pers_eindruck.AddItem "Sehr wichtig"
    UserForm1.pers_eindruck.AddItem "Sinnvoll (Zeitgemäss)"
    UserForm1.pers_eindruck.AddItem "Unnötig"
    UserForm1.pers_eindruck.AddItem "Andere"
End Sub

Nun will ich bei den anderen auch noch was einfügen, doch das geht nicht. Der obige Code bezieht sich ja auf das ganze Formular. Wie mache ich das, dass ich doch noch andere ComboBoxen einfügen kann?

Vielen Dank
Pinky

 

[Nirraven]

Formularname.Steuerelementname.methode

UserForm1. -> Formularname
pers_eindruck. -> Steuerelementname
AddItem -> Methode

pers_eindruck ist also deine Kombobox. änder das, dann sollte es gehen.

 

[Pinky]

Ah ja, danke, ich muss also alle Drop-Down-Menus im selben SUB drinnen haben.

Vielen Dank
Pinky

 

[Nirraven]

Muss nicht, ist aber übersichtlicher...