Private Sub eingabe(eingabetext As String) ' Hier wird z.B "F5" übergeben
    Dim n
    For n = 0 To kombi.Count - 1                   ' Durchläuft alle 
    ' Auswahlfelder
        If kombi(n).Text = eingabetext Then   ' Wenn Auswahlfeld = "F5" dann _
          sende string
            MsgBox "Hallo"                                   ' ohne die gehts 
            ' nach wie vor nicht
            SendKeys txtdatei(n).Text, True       'geht weder mit false noch 
            ' mit true
        End If
    Next
End Sub