Private Sub text_Suche_Change()
    Dim i As Integer
    For i = 1 To cmb_Auswahl.ListCount
        If Left(cmb_Auswahl.List(i), Len(text_Suche.Text)) = text_Suche.Text _
          Then
            cmb_Auswahl.ListIndex = i
            ExitFor
        End If
    Next i
End Sub