wie kann ich nach Auruf des Dialogs Speichern unter mit einem Makro,
den Dateityp: Text (MS-DOS) (*.txt) automatisch darstellen, ohne dass ich diesen auswählen muß?
Vielen Dank für Eure Hilfe
Gerhard
Sub test()
Dim strFile As String
strFile = Application.GetSaveAsFilename( _
InitialFileName:="neu", _
FileFilter:="Text Files (*.txt), *.txt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Deine Mappe").SaveAs strFile, FileFormat:=xlTextMSDOS
End Sub