Sub test()
Dim svStart As Double, svEnd As Double
svStart = Now
ActiveWorkbook.SaveAs "C:\test.xls"
svEnd = Now
MsgBox "Dauer des Speicherns: " & Format(svEnd - svStart, "mm:ss")
End Sub
Sub AAA_test()
Dim svStart As Double, svEnd As Double
svStart = Now
ActiveWorkbook.SaveAs Filename:="C:\Excel\XLSTART\PERSONL.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
''ActiveWorkbook.SaveAs "C:\Personal.xls"
svEnd = Now
MsgBox "Dauer des Speicherns: " & Format(svEnd - svStart, "mm:ss")
Userform_Save.Show
ThisWorkbook.Save
Unload Userform_Save
End Sub
Sub AAA_test()
Userform_Save.Show
ActiveWorkbook.SaveAs Filename:="C:\Test.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ThisWorkbook.Save
Unload Userform_Save
End Sub
Sub speichern_unter()
On Error GoTo ende
ThisWorkbook.SaveAs "C:\Excel\ww\00_Muster.xls"
Call make_Display01
ThisWorkbook.Close False
ende:
End Sub