messagebox moet op een bepaald uur verschijnen

[bjornesto]

ik heb een rapport en zou graag messageboxen erin willen zetten
Dit dient om mensen erop attent te maken wat er nog zoal moet gebeuren

Sub check_access_removal()
MsgBox "check access removal"
End Sub

Sub empty_letter_box()
MsgBox "empty letter box"
End Sub

Nu zou ik willen dat die messagebox access removal om 20:00 uur 's avonds opspringt in sheet 2
en de andere empty letter box 20:10

kan iemand mij hierbij helpen --> heb al geprobeerd met application.ontime maar lukte nog niet echt

 

[ExcelAmateur]

bjornesto,

Dit heb ik als test geprobeerd en het werkte.
Hij liet de MsgBox om 6:30 uur zien.

Sub Start()
  Application.OnTime TimeValue("06:30:00"), "check_access_removal"
End Sub

Misschien kun je er wat mee.

Suc6

 

[bjornesto]

dit werkt perfect

maar wat is het beste dat je hij dit doet als je het bestand opent of jou geval met start

 

[ExcelAmateur]

bjornesto,

Dit heb ik uit de help van Excel gehaald en aan gepast.
Ik denk dat je dit in ThisWorkbook moet zetten, als je de file opent word de macro gestart.

Private Sub Workbook_Open()
  Application.OnTime TimeValue("20:00:00"), "check_access_removal"
  Application.OnTime TimeValue("20:10:00"), "empty_letter_box"
End Sub