Private
Sub
ComboBox1_Change()
Dim
i
i = ComboBox1.ListIndex
Select
Case
i
Case
0
Call
MsgBox(
"Rückgabe = "
_
& ComboBox1.Value, vbInformation,
"Combobox1"
)
Case
1
Call
MsgBox(
"Rückgabe = "
_
& ComboBox1.Value, vbInformation,
"Combobox1"
)
Case
Else
Call
MsgBox(
"Rückgabe ?"
, vbExclamation,
"Combobox1"
)
End
Select
End
Sub