nudle immer noch an meinem Übernahmemakro rum (Messdaten in Excelfile). Haut irgendwie aber nicht hin:
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,"),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))
XlsName = Left(TptFile, Len(TptFile) - 4) + ".xls"
XlsFile = Application.GetSaveAsFilename(XlsName, "Exceldateien (*.xls),*.xls,")
ActiveWorkbook.SaveAs XlsFile
End Sub
Der meckert an diesem Origin herum. Diese Passage habe ich vom Recorder eingefügt, in der stillen Hoffnung, er würde es so schlucken. Diese Passage legt fest, in welchem Format meine Daten in Excel erscheinen sollen.
Weiß jemand Rat ?
Gruß
Dari