Irgendwie haut mein Makro nicht hin. Das Problem ist, dass in der Textdatei die Zahlen durch einen Punkt statt durch Komma getrennt werden. Nun habe ich einen Code bekommen (siehe unten unter Ersetzen des Punktes), der wenn ich es richtig verstehe den Punkt ersetzt. Leider gelingt mir die Integration in mein Ursprungsprogramm nicht. Ich habe langsam auch den Verdacht, dass sich dies möglichweise gar nicht integrieren läßt, oder irre ich mich da ???
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
Dim HFile As Integer, Text As String, feld() As String, zaehler As Long, index As Long
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
If TptFile = False Then Exit Sub
'Ersetzen des Punktes
HFile = FreeFile
Open "C:\Dokumente und Einstellungen\Administrator\Desktop\Text.txt" For Input As #HFile
Do Until EOF(HFile)
zaehler = zaehler + 1
ReDim Preserve feld(1 To zaehler)
Line Input #HFile, Text
feld(zaehler) = Replace(Text, ".", ",", 1, 1, 1)
Loop
Close #HFile
HFile = FreeFile
Open "C:\Dokumente und Einstellungen\Administrator\Desktop\Text.txt" For Output As #HFile
For index = 1 To UBound(feld)
Print #HFile, feld(index)
Next
Close #HFile
'Überführen der Textdateidaten
Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1))
Gruß
Dari