dank Gerds Hilfe habe ich mein Umwandlungsmakro hinbekommen:
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
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, 2))
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien
(*.xls),*.xls,")
ActiveWorkbook.SaveAs XlsFile, xlWorkbookNormal
End Sub
Nun ist ein neues Problem aufgetaucht. Das ursprüngliche Format der Messdatei ist:
R105_1 7,5122000000E+01
wobei das R105_1 die Bezeichnung für die Messung ist und 7,5122000000E+01 der Messwert ist. Jetzt hat Excel aber irgendwie ein Problem mit dem Komma. Das muss umgewandelt werden in einen Punkt, damit er erkennt, dass dies ein Wissenschaftlicher Wert ist, der eigentlich 75,122 ist.
Mein Problem ist also, wie kriege ich hin, dass er diesen blöden Wert in eine Zahl umwandelt. Die Sache ist echt schwieriger, als sie auf den ersten Blick den Anschein hat.
Habe jetzt mal verschiedene Ansätze ausprobiert, aber ohne Erfolg. Vor allem weiß ich nicht, wie ich das in den oberen Code reinfummeln soll.
Kennt sich jemand damit aus ?
Gruß
aus Reutlingen