Bestimmte Zeilen aus mehreren txt Dateien auslesen

Hallo,
ich bin kurz vor dem verzweifeln und habe nach langer Suche auch noch nicht den richtigen Hinweis im Netz gefunden, daher benötige ich die Hilfe von Euch.
Ich habe mehrere .txt Dateien, die alle identisch aufgebaut sind.
Das bedeutet in Zeile 5, 14, 56, usw. steht immer der gleiche Wert.
Ich möchte eigentlich nur in in einer Excel Tabelle diese Werte übertragen.
In Feld A1 soll der wert aus Zeile 5 aus 1.txt stehen.
In Feld B1 soll der wert aus Zeile 14 aus 1.txt stehen.
In Feld C1 soll der wert aus Zeile 56 aus 1.txt stehen.
In Feld A2 soll der wert aus Zeile 5 aus 2.txt stehen.
In Feld B2 soll der wert aus Zeile 14 aus 2.txt stehen.
In Feld C2 soll der wert aus Zeile 56 aus 2.txt stehen.
usw....
Ich finde leider hierfür keine Lösung. Ich hoffe Ihr könnt mir helfen.
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim strPath As String, strFile As String Dim lngSpalte As Long, lngZeile As Long Dim strDaten As String strPath = ThisWorkbook.Path & "\" 'Pfad anpassen strFile = Dir(strPath & "*.txt") With ThisWorkbook.Sheets("Tabelle1") ' Tabelle anpassen Do Until strFile = "" lngSpalte = lngSpalte + 1 lngZeile = 0 Open strPath & strFile For Input As #1 .Cells(1, lngSpalte) = strFile Do Until EOF(1) lngZeile = lngZeile + 1 Line Input #1, strDaten Select Case lngZeile Case 5, 14, 56 ' Zeilen anpassen .Cells(Rows.Count, lngSpalte).End(xlUp).Offset(1, 0) = strDaten End Select Loop Close #1 strFile = Dir Loop End With End Sub

Hi
Nicht aufgepasst, aber jetzt:

Sub t()
Dim strPath As String, strFile As String
Dim lngZeile As Long, lngSpalte As Long
Dim strDaten As String
strPath = ThisWorkbook.Path & "\" 'Pfad anpassen
strFile = Dir(strPath & "*.txt")
With ThisWorkbook.Sheets("Tabelle1") ' Tabelle anpassen
Do Until strFile = ""
lngZeile = lngZeile + 1
lngSpalte = 0
Open strPath & strFile For Input As #1
.Cells(lngZeile, 1) = strFile
Do Until EOF(1)
lngSpalte = lngSpalte + 1
Line Input #1, strDaten
Select Case lngSpalte
Case 5, 14, 56 ' Zeilen anpassen
.Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 1) = strDaten
End Select
Loop
Close #1
strFile = Dir
Loop
End With
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen aus mehreren txt Dateien auslesen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen aus mehreren txt Dateien auslesen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread