ComboBoxen beschriften
16.05.2003 04:09:04
Peter
wer kennt sich mit der Handhabung von ComboBoxen in UserForms aus? Wie kann ich erreichen, daß beim Aufrufen der UserForm die ComboBox einen Initialisierungs-Text enthält? Bisher zeigt sich grundsätzlich ein leeres Listenfeld. Die Einträge werden erst sichtbar, wenn ich mit der Maus die Liste dropdownmäßig anwähle. Läßt sich vielleicht auch ein bestimmter Item-Eintrag aus der Dropdownliste voreinstellen, der dann defaultmäßig angezeigt wird?
So habe ich die Combobox initialisiert:
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Eintrag 1"
ComboBox1.AddItem "Eintrag 2"
ComboBox1.AddItem "Eintrag 3"
End Sub
Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case "Eintrag 1"
MsgBox ("Eintrag 1 wurde gewählt")
Case "Eintrag 2"
MsgBox ("Eintrag 2 wurde gewählt")
Case "Eintrag 3"
MsgBox ("Eintrag 3 wurde gewählt")
End Select
End Sub
Vielen Dank für Eure Hilfe
Gruß Peter
Anzeige