Hallo Mario,
Du musst die eingelesenen Zeilen auch in unterschiedliche Zeilen der Tabelle schreiben:
Sub test()
Dim ttxt As String
Dim NLine As Long
Open "U:\test\txt\mon-21.2160.txt" For Input As #1 ' Datei öffnen.
NLine = 1
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, ttxt
Cells(NLine, 1) = ttxt
NLine = NLine + 1
Loop
Close #1
End Sub
Gruss
Busmaster