'Macro name: dateispeichern'

Sub MAIN
If FileNameFromWindow$() = "" Then
dsu
Else
dok
On Error Resume Next
FileSaveAs .Format = 1
EndIf
End Sub
