Combobox if abfrage

Computer: Software & Programmierung Visual Basic
1

Hallo,
möchte eine combobox mit z.b. 3 Namen — Anni, klaus, egon—

Möchte nun, wenn z.b klaus ausgewählt ist, und ein Buttom gedrückt wird, dass ein betimmtes string ausgegeben wird.

Wie kann ich das realisieren?

Habe schon mal etwas getestet, hat aber leider nicht funktioniert.

if combo1.listindes = 0 then
print …
elseif…

2

Hallo!

möchte eine combobox mit z.b. 3 Namen — Anni, klaus, egon—
Möchte nun, wenn z.b klaus ausgewählt ist, und ein Buttom
gedrückt wird, dass ein betimmtes string ausgegeben wird.
Wie kann ich das realisieren?

Ich hätte es so gemacht (code der in der Userform):

Private Sub UserForm\_Initialize()
 ComboBox1.AddItem "Anni" 'ListIndex = 0
 ComboBox1.AddItem "Klaus" 'ListIndex = 1
 ComboBox1.AddItem "Egon" 'ListIndex = 2

 ComboBox1.Style = fmStyleDropDownList
 ComboBox1.BoundColumn = 0 'Werte im Kombinationsfeld entsprechen den Werten für ListIndex
 ComboBox1.ListIndex = 0 'Kombinationsfeld auf ersten Eintrag festlegen
End Sub
Private Sub CommandButton1\_Click()
 Select Case ComboBox1.Value
 Case 0 'Anni
 MsgBox ("Anni wurde gewählt")
 Case 1 'Klaus
 MsgBox ("Der bestimmte String für Klaus wird ausgegeben")
 Case 2 'Egon
 MsgBox ("du hast Egon angeklickt")
 End Select
End Sub

HTH
Maze

3

Private Sub Form_Load()
Combobox1.AddItem „Anni“
'ListIndex = 0
Combobox1.AddItem „Klaus“
'ListIndex = 1
Combobox1.AddItem „Egon“
'ListIndex = 2
'Werte im Kombinationsfeld entsprechen den Werten für ListIndex
Combobox1.ListIndex = 0
'Kombinationsfeld auf ersten Eintrag festlegen
End Sub
Private Sub CommandButton1_Click()
MsgBox Combobox1.Text
End Sub

Oder entsprechend Ihrem Beispiel:

Select Case ComboBox1.Text
Case haumichblau

…