Sub
SpeichernA()
Dim
sInitialname
As
String
sInitialname =
"T:\Test\" & Format(Date, "
YYYY-MM-DD")
sInitialname = Application.GetSaveAsFilename( _
InitialFileName:=sInitialname, _
FileFilter:=
"Excel-Dateien (*.xlsx), *.xlsx"
, _
FilterIndex:=1, _
Title:=
"Titel"
)
If
sInitialname <>
"Falsch"
Then
Call
ThisWorkbook.SaveAs( _
Filename:=sInitialname, _
FileFormat:=xlWorkbookDefault)
End
If
End
Sub