tidsbestemt makrokørsel

Metoden OnTime

I dette eksempel udføres min_Procedure 15 sekunder fra nu.

Application.OnTime Now + TimeValue("00:00:15"), "min_Procedure"

I næste eksempel udføres min_Procedure kl. 17.00.

Application.OnTime TimeValue("17:00:00"), "min_Procedure"

I næste eksempel annulleres indstillingen OnTime i det foregående eksempel.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
    Procedure:="min_Procedure", Schedule:=False

Hvad med til et bestemt tidspunk på en bestemt dato
TimeValue("2003-02-01 00:00:15")
hook

Private Sub Workbook_Open()
Call Handling
End Sub

Public Sub Handling()
If Date = #1/2/02# Then
Application.OnTime TimeValue("00:00:15"), "min_Procedure"
End If
End Sub

Undskyld den lange responstid.
Men dit svar er lige i øjet

MVh Hook