Private Sub list1_Click()
  Dim Vname1 As String
  Dim Vname2 As String
  Dim a As Variant
  Dim i As Long
  Dim Fund As Long
 
  Vname1 = List1.List(List1.ListIndex)
 
  a = Split(Vname1, " ")
  Vname2 = a(1): ' Jetzt haben wir die Nummer
  Fund = -1
  For i = 0 To Combo2.ListCount - 1
    If Combo2.List(i) = Vname2 Then
      Fund = i
      Combo2.Text = Vname2
      Select Case Fund
        Case 0
          Combo3.Text = Combo3.List(0)
          Combo4.Text = Combo4.List(0)
        Case 1
          Combo3.Text = Combo3.List(1)
          Combo4.Text = Combo4.List(2)
        Case Else
           MsgBox ("falsche Wahl")
      End Select
    End If
  Next
  If Fund = -1 Then
    MsgBox (Vname + " not Found")
  End If
 
End Sub
 
 
Private Sub Form_Load()
 
Dim Zeile As String
Dim f As Long
 
Rem ** ersetzt durch List1.additem zum testen
'f = FreeFile
'Open "liste.txt" For Input As #f
'Do While Not EOF(f)
'Line Input #f, Zeile
'List1.AddItem Zeile
'Loop
'Close#f
Rem ** REM ENDE
 
 
Combo2.AddItem "0"
Combo2.AddItem "10"
Combo2.AddItem "100"
 
Combo3.AddItem "klein"
Combo3.AddItem "mittel"
Combo3.AddItem "groß"
 
Combo4.AddItem "dick"
Combo4.AddItem "normal"
Combo4.AddItem "schlank"
 
List1.AddItem "Hans 0"
List1.AddItem "Otto 10"
List1.AddItem "Heino 100"
List1.AddItem "Karl 10"
 
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)