|
hm, ich werde die String inhalt in Tabelle1 speichern mit dem Command:Worksheets("Tabelle1").Rang("A1:C4") = inhalt
aber es funktioniert nicht ...
wenn mit command Worksheets("Tabelle1").cells(1) = inhalt, dann alle werte bleiben in A1 ....
Sub auslesen()
Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String
DatNR = FreeFile
Dateiname = "C:\Users\mimixia\Desktop\vba\test.txt" 'hier den Pfad zur Datei eintragen bspw. C:\test.txt
Open Dateiname For Input As DatNR
inhalt = Input(LOF(DatNR), DatNR)
Close DatNR
'jetzt zurechtstutzen
inhalt = Trim(Split(inhalt, "Node")(1))
inhalt = Replace(inhalt, ",", "")
inhalt = Replace(inhalt, ". ", " ")
'MsgBox inhalt
With ActiveSheet
Worksheets("Tabelle1").Rang("A1:C4") = inhalt
End With
End Sub
1 0 0 0.100000001
2 41.6267433 0 0.100000001
3 36.5496292 23.4185276 0.100000001
|