Timer
28.03.2024 08:02:32
Chris
ich möchte per VBA Excel nach 30 Sekunden beenden.
Ich erhalte bei folgendem Code die Meldung: Die Methode Application_on time konnte nicht asugeführt werden
Im WB_Open Ereignis:
'Timer starten
Application.EnableEvents = True
'tsave = Now + TimeValue("00:00:30")
tClose = Now + TimeValue("00:00:10")
'Application.OnTime tsave, "SaveRV"
Application.OnTime tClose, "CloseMe"
Im WB-Close Ereignis
Application.OnTime tClose, "CloseMe", , False
In einem allgemeinen Modul:
Option Explicit
Public tClose As Date
Sub CloseMe()
Application.DisplayAlerts = False
Application.WindowState = xlMinimized
Application.OnTime tClose, "CloseMe", , False
ThisWorkbook.Save
Application.Quit
End Sub