Makros automatisch starten
08.02.2005 07:56:33
Oliver
Ich habe folgende 2 Makro in ein Excelsheet von mir geschrieben:
(1)
Sub Information()
Dim WshShell
Dim intText As Integer
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Der Fahrzeugkalender wird sich nach 5 Minuten automatisch schließen." _
, 5, "zur Information", vbInformation)
End Sub
(2)
Sub CloseFile()
Workbooks("DMSRT00-#30064-v1-Fahrzeuge_05.XLS").Activate
ActiveWorkbook.Save
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
ActiveWorkbook.Close
End Sub
Das erste (1) gibt eine Information aus und das zweite (2) speichert und schließt die Datei.
Das Problem das ich habe ist, dass das erste (1) Makro gleich nach dem starten des Sheets und das zweite (2) Makro nach 5 Minuten ausgeführt wird. Nur weiß ich jetzt nicht mehr wie ich das wo eingestellt habe. Außer diesen zwei Makros gibt es keine weiteren mehr.
Vielen Dank für eure Hilfe.
Gruss Oliver