Abspeichern als txt klappt nicht
27.10.2003 14:12:55
Micha
Wenn jetzt auswähle ich will es als txt abspeichern dann steht nur wirres Zeug im txt File. Warum?
Es sollte so wie die excel tabelle ausschauen.
Hier der Modul:
Sub Speichern()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Dateiname = Application.GetSaveAsFilename _
("Werkstoffname", "Textdateien (*.txt),*txt,Micrsoft Excel-Dateien (*.xls),*.xls")
ActiveWorkbook.SaveAs Filename:=Dateiname
ActiveWorkbook.Close savechanges:=False
Range("H5").Select
Application.ScreenUpdating = True
End Sub