AW: Datei spiegeln?
16.02.2006 09:31:15
Markus
Habe nun diese beiden Codes angepasst und ausprobiert:
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
Funktionieren beide soweit gut. Aber was muss ich nun tun, das der Code automatisch beim Speichern der normalen datei ausgeführt wird?!