vFile = Application.GetOpenFilename("Textdateien (*.TXT *.CSV), *.txt *.csv")
Workbooks.OpenText FileName:=vFile, Tab:=False, semicolon:=True, _
comma:=False, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
Was muß ich an Workbooks.OpenText ... ändern, um auch *.txt richtig darzustellen ? Die eigentliche Frage dahinter ist (csv ist klar : Zahlen mit . und mit ; getrennt). Nur was ist bitte *.txt ? Ist das etwa x.xxxx mit mehr oder weniger vielen Leerzeichen getrennt ? Das würde erklären, daß ich allenfalls punktbehafte Zahlenkolonnen mit 10^14 bekomme. Danke, Klaus