Sub save()
myPfad = "C:\Test"
myDatei = ThisWorkbook.Name
myDate = Format(Now, "YY-MM-DD")
myTime = Format(Now, "hh-mm-ss")
myUser = Environ("Username")
ThisWorkbook.SaveCopyAs Filename:=myPfad & "\" & myDatei & " " & "Date " _
& myDate & " " & "Time " & myTime & " " & "durch " & myUser & " " & "Sicherung.XLS"
End Sub
Sub save2()
ThisWorkbook.SaveCopyAs "C:\Test\test.xls"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
call save1
call save2
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
call save1
call save2
End Sub
Sub save2()
ThisWorkbook.SaveCopyAs "C:\Test\test.xls"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen