Sub Input_Files_From_Path()
Dim strDatei    As String
Dim intFF       As Integer
Dim strText     As String
Dim wks         As Worksheet

'Sheets("Datei_einlesen").Range("A:G").Clear 'Inhalte Löschen / erase data
Set wks = ActiveSheet                       'Aktives Arbeitsblatt setzen / set active sheet

strDatei = Ordnerauswahl()  'ask for File
'MsgBox strDatei             'Debug

Do While strDatei <> ""
    intFF = FreeFile()
    Open strDatei For Input As #intFF
        strText = Input(LOF(1), #intFF)
    Close #intFF

    WriteToClp strText 'in Zwischenablage kopieren / copy to clipboard
 
    With wks
        With .Cells(Rows.Count, 1).End(xlUp).offset(1).Range("A1")
            .Value = 1
            .TextToColumns .Cells(1), ConsecutiveDelimiter:=True, Space:=True ', Other:=False, OtherChar:=False, FieldInfo:=False 'bei True werden Spalten getrennt
            wks.Paste .Cells(1)
        End With
    End With
    spalten = spalten + 1
    strDatei = ""
Loop
End Sub

Public Sub WriteToClp(txt As String)
Dim IE As Object
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", txt & ""
Set IE = Nothing
End Sub

Public Function Ordnerauswahl() As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\"
        .Title = "Ordnerauswahl"
        .ButtonName = "Auswahl..."
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then
            strOrdner = .SelectedItems(1)
            'If Right(strOrdner, 1) <> "\" Then strOrdner = strOrdner & "\"
          Else
            strOrdner = ""
        End If
    End With
    If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else Ordnerauswahl = strOrdner
End Function