workbook_open
14.01.2004 11:22:12
Jonathan
durch Eure Hilfe konnte ich folgenden Code entwerfen (na gut, ich habe es nicht gemacht - IHR habt ihn mir geschrieben)
sicherung.Show
Application.Wait (Now + TimeValue("0:00:05"))
myPfad = "N:\Produktionslisten\Lebensversicherung\Sicherung"
myDatei = ThisWorkbook.Name
myDate = Format(Now, "YY-MM-DD")
myTime = Format(Now, "hh-mm-ss")
myUser = Environ("Username")
ActiveWorkbook.SaveCopyAs Filename:=myPfad & "\" & myDatei & " " & "Date " _
& myDate & " " & "Time " & myTime & " " & "durch " & myUser & " " & "Sicherung.XLS"
sicherung.Hide
nun habe ich diesen in workbook_open
und möchte ihn nur unter bestimmten vorraussetzungen ausführen.
gemäß:
wenn..... dann ausführen, sonst nicht
nur, der code steht ganz am anfang der Sub, sonst hätte ich es mit exit sub gemacht, aber der rest soll auf jeden fall ausgeführt werden. wie kann ich das anstellen?
Liebe Grüße
Jonathan