Hallo zusammen,

ich verzweifel gerade daran, wie ich diesen Code auch ohne den Line Input ausführen kann. Gesucht wird also eine Alternative/Ersatz für den Line Input. Über Hilfe wäre ich sehr dankbar.

Set ws = ThisWorkbook.Sheets("Import")
ws.Activate
Do While b <> ""
    Open "C:\" & b For Input As #1
        Do While Not EOF(1)
            Line Input #1, Textzeile
            Cells(a, 1) = Replace(Textzeile, vbTab, "/")
            a = a + 1
        Loop
    Close #1
    b = Dir
Loop