es ist echt zum Mäuse melken. Mit dem Makro:
Sub CreateXlsFile()
Dim XlsFile As Variant
Dim TptFile As Variant
Dim XlsName As String
'Öffnen der Messdatei und Speichern als Exceldatei
TptFile = Application.GetOpenFilename("Messdateien (*.s01),*.s01,")
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
Application.Workbooks.OpenText FileName:=TptFile, Origin:= _
xlWindows, StartRow:=6, 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
habe ich eine Zweispaltige Messdatei umgewandelt in ein Excelformat. Nun besteht die zweite Spalte aus Messwerten der Form :
7,5122000000E+01
7,3122000000E+01
7,4122000000E+01
7,8512000000E+01
7,6528000000E+01
9,9999900000E+09
usw.
Diese möchte ich in eine normale Zahl umwandeln (75,122). Ich habe den Recorder mitlaufen lassen und über Daten > Text in Spalten die Spalte umgewandelt. Ging auch problemlos. Habe dann den Code eingefügt:
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2)
und erwartet, dass die Umwandlung funktioniert. Stattdessen fügt er 10 Nullen an. Die Zahl heißt dann 75122000000. Weiß jemand, welcher Wurm da wieder drinsteckt ... ?
Gruß
aus Tübingen
Dari