Gruppe
Extern
Problem
Aus den Textdateien "Text1.txt" bis "Text3.txt" im Verzeichnis dieser Arbeitsmappen sollen jeweils 3 Zeilen ausgelesen und in einem Tabellenblatt eingetragen werden.
StandardModule: Modul1
Sub Auslesen()
Dim iCounter As Integer, iLine As Integer
Dim sTxt As String
Close
Range("A1").Value = "Name"
Range("B1").Value = "Vorname"
Range("C1").Value = "Strasse"
Rows(1).Font.Bold = True
For iCounter = 1 To 3
iLine = 0
Open ThisWorkbook.Path & "\text" & iCounter & ".txt" For Input As #1
For iLine = 1 To 3
Line Input #1, sTxt
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, " "))
Cells(iCounter + 1, iLine).Value = sTxt
Next iLine
Close
Next iCounter
End Sub