Sub auslesen()
Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String
Dim zeilen
Dim zellen
Dim i As Long
Dim j As Long
DatNR = FreeFile
Dateiname = "C:\Users\mimixia\Desktop\vba\test.txt"
Open Dateiname For Input As DatNR
inhalt = Input(LOF(DatNR), DatNR)
Close DatNR
inhalt = Range("A23")
inhalt = Trim(Split(inhalt, "Node")(1))
inhalt = Replace(inhalt, ",", "")
inhalt = Replace(inhalt, ". ", " ")
ActiveSheet.Range("A1:C4").NumberFormat = "@"
zeilen = Split(inhalt, Chr(10))
For i = 1 To UBound(zeilen)
zellen = Split(zeilen(i), " ")
For j = 1 To UBound(zellen)
Worksheets("Tabelle1").Cells(i, j) = CStr(zellen(j))
Next j
Next i
End Sub