Wie per VBA Werte aus einer Textdatei auslesen?

[AleXSR700]

Hallo,

ganz einfach so ...  

Danke dir :-)

Leider scheine ich entweder was falsch angepasst zu haben, oder es fehlt noch irgendetwas.

Ich habe jetzt mal auf das Laufwerk H: eine Datei namens Test.txt gelegt.
Der Inhalt der Datei lautet:

Code:

Prüf-Nr. 24-07-2019
Be;0.00E+00;;3.33E+04;1.66E+04;Bq/g;19.06.2019;;;;;
Ka;0.00E+00;;6.05E+01;2.99E+01;Bq/g;19.06.2019;;;;;
Kc;0.00E+00;;3.18E+02;1.56E+02;Bq/g;19.06.2019;;;;;
Sc;5.44E+03;;4.79E+02;2.38E+02;Bq/g;19.06.2019;;;;;
Crf;0.00E+00;;2.23E+05;1.11E+05;Bq/g;19.06.2019;;;;;

Ich habe dann deinen Code mal testweise angepasst und dann, um Fehler auszuschliessen, die Namen der Datei und des Suchbegriffes fest definiert.

Code:

Sub Einlesen()
Const Pfad As String = "H:\"
Dim Datei As String
Dim TextStream As Variant
Dim Data As Variant
Dim FSO As Object
Dim i As Long

Datei = Dir(Pfad & "Test" & ".txt")

If Datei <> "" Then
    Set FSO = CreateObject("Scripting.FilesystemObject").opentextfile(Pfad & Datei)
    Data = FSO.Readall()
    TextStream = Split(Data, vbCrLf)
    If Split(TextStream(0), " ")(0) = "Prüf-Nr." _
      And Split(TextStream(0), " ")(1) = "24-07-2019" Then
        For i = 1 To UBound(TextStream)
            If Split(TextStream(i), ";")(0) = "Sc" Then
                Range("B39").Value = Replace(Split(TextStream(i), ";")(1), ".", ",")
                Exit Sub
            End If
        Next i
        MsgBox "Nichts gefunden."
    End If
End If
End Sub

Führe ich das Ganze aus, dann passiert einfach nichts. Er bringt keine Fehlermeldung, tut aber auch nichts.
Irgendeine Idee?

Undn eine kleine Nachfrage: Wieso ist bei "Datei" eigentlich der Pfad definiert? Später kommt nämlich opentextfile(Pfad & Datei), aber ist der Pfad nicht in Datei bereits enthalten?