Bestimmte Werte aus TXT in Excel importieren

Moin aus Bremen,
ich bräuchte mal Hilfe und habe leider in der Suche nichts passendes gefunden.
Ich habe mehrere TXT Dateien in einem Ordner die alle gleich aufgebaut sind.
Hier habe ich mal ein Beispiel hochgeladen:
https://www.herber.de/bbs/user/122447.txt
aus diesen TXT Datei möchte ich gerne nur bestimmte Werte in eine Excel Tabelle eintragen lassen.
Diese sollte dann so aussehen.
Ich habe die Werte mit der entsprechenden Überschrift mal markiert.
https://www.herber.de/bbs/user/122448.xlsx
Ich habe schon nach Lösungen über die Positionen der Werte in einer TXT gesucht aber leider nichts gefunden.
Leider bin ich was VBA angeht eine völlige Niete.
Ich versuche mal die Positionen der Werte anzugeben:
Actype Ln16, Col6 Wert: A320__
minimum Ln19, Col21 Wert: .61300E+00
max payload Ln19, Col 47 Wert: .33000E+00
Max.Alt Ln22, Col 34 Wert: .41000E+05
Cruise Corr. Ln56, Col 8 Wert: .96358E+00
Würde mich freuen wenn mir da jemand weiterhelfen kann.
Liebe Grüße
Dennis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin,
haha hab gerade gesehen das du mir was geschrieben hast.
Habe bis eben gerade auch dran gesessen und wollte mein Ergebniss präsentieren.
Aber vielen Dank für die Bemühungen.
Auch mal interessant das mit Case zu sehen.

Sub ImportierenOPFile()
'Variablen definieren
Dim datei As String             'Speicherort der TextDateien
Dim zeile As String             'Laufvariable
Dim inhalt As String            'Inhalt der TextDateien
Dim actype As String            'Actype
Dim min As String               'DOW
Dim maxpay As String            'maximal Payload
Dim alt As String               'Flightlevel
Dim fuel As String              'Fuel Consumption
'QuellDatei ansprechen
datei = "E:\BADA_3.13\A3ST__.OPF"
'QuellDatei öffen
Open datei For Input As #1
'Informationen in das Tabellenblatt eintragen
Do While Not EOF(1)     'Schleife bis End of File, Datenende
'Inhalt der QuellDatei der gewünschten Zeilen einlesen
Line Input #1, zeile
inhalt = inhalt & zeile
Loop
'QuellDatei schließen
Close #1
'Suche nach Textstring in QuellDatei
actype = InStr(inhalt, "Actype")
min = InStr(inhalt, "minimum")
maxpay = InStr(inhalt, "max payload")
alt = InStr(inhalt, "Max.Alt")
fuel = InStr(inhalt, "Cruise Corr.")
'Wert in das Tabellenblatt eintragen
Range("A1").Value = Mid(inhalt, actype + 67, 4)
Range("B1").Value = Mid(inhalt, min + 71, 9)
Range("C1").Value = Mid(inhalt, maxpay + 72, 9)
Range("D1").Value = Mid(inhalt, alt + 71, 9)
Range("E1").Value = Mid(inhalt, fuel + 73, 10)
End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus TXT in Excel importieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus TXT in Excel importieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread