Wie per VBA Werte aus einer Textdatei auslesen?

[Flotter Feger]

Hallo,

ganz einfach so ...  

Code:

Sub Einlesen()
Const Pfad As String = "C:\1\" ' <-- anpassen
Dim Datei As String
Dim TextStream As Variant
Dim Data As Variant
Dim FSO As Object
Dim i As Long

Datei = Dir(Pfad & Range("A1") & "*_.txt") '<-- anpassen ?

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) = Range("A1").Text Then
        For i = 1 To UBound(TextStream)
            If Split(TextStream(i), ";")(0) = Range("A2").Text Then
                Range("B2").Value = Replace(Split(TextStream(i), ";")(1), ".", ",")
                Exit Sub
            End If
        Next i
        MsgBox "Nichts gefunden."
    End If
End If
End Sub