Private Sub Form_Load()
Combo1.AddItem "extrem wichtig"
Combo1.AddItem "sehr wichtig"
Combo1.AddItem "egal oder auch nicht"
End Sub
 
Private Sub List1_Click()
If InStr(UCase(List1.Text), "EXTREM WICHTIG") Then Combo1.Text = "extrem" & _
  "wichtig"
If InStr(UCase(List1.Text), "SEHR WICHTIG") Then Combo1.Text = "sehr wichtig"
If InStr(UCase(List1.Text), "EGAL ODER AUCH NICHT") Then Combo1.Text = "egal" & _
  "oder auch nicht"
End Sub
 
Private Sub Combo1_Change()
Select Case  Combo1.Text
Case Is =  "extrem wichtig"
           [color=green]'Aktion wenn Como1 gleich "extrem wichtig" ist
Case Is = "sehr wichtig"
           [color=green]'Aktion wenn Como1 gleich "sehr wichtig" ist
Case Is = "egal oder auch nicht"
           [color=green]'Aktion wenn Como1 gleich "egal oder auch nicht" _
             ist[/color]
End Select
End Sub