Macro starten op een bepaald tijdstip

[DeToekomst2]

Dag,


Ik heb in een andere vraag (automatisch dozen vullen) deze vraag ook gesteld maar ik ga 'm toch als een aparte vraag stellen.

Ik wil dat mijn macro op werkdagen en dan op een bepaald tijdstip gaat draaien. Hier heb ik de volgende code voor:

Private Sub Workbook_Open()
If Weekday(Now, vbMonday) < 6 Then
Application.OnTime TimeValue("16:30:00"), "uw macro"
End If
End Sub

(Gekregen van gast0660)

Deze werkt echter niet. Ik heb ook geprobeerd om enkel het volgende in een bestandje te zetten:

Private Sub workbook_open()

Application.OnTime TimeValue("11:26:00"), "Test"

End Sub

(Deze staat in het voorbeeldbestand)
Bekijk bijlage HM Macro tijd.xlsm
Ook dit levert geen resultaat...

Weet iemand waar dit aan ligt? Ik kan op het internet nergens vinden waarom het niet werkt, de code komt namelijk overeen met hun voorbeelden.

 

[ExcelAmateur]

Hier uw werkende file.

Hij start om 11:50 uur

@ Ik heb de file opnieuw geplaatst, zag dat de macro niet op je juiste plaats stond.

 

[ExcelAmateur]

Als je de tijd wil veranderen en laten werken,
zal je de file moeten sluiten en dan weer openen.

Anders werkt het niet, hij staat namelijk in Workbook_Open
en treed dan pas in werking.

 

[DeToekomst2]

Super! Ik was inderdaad al bezig met het eerste bestand en had bijna een reactie geplaatst dat het niet werkt.
Ook bedankt voor de tip dat je het bestand opnieuw moet openen. Dit wist ik ook niet.

Ik markeer de vraag als opgelost, bedankt voor de hulp!

 

[ExcelAmateur]

Opnieuw openen, moet alleen als je de tijd veranderd.
Als hij altijd geopend is hoeft dit niet.

 

[Baconet]

Ontime loopt vast

Zelf heb ik dit ook toegepast, maar na x tijd loopt Excel vast.
X varieert hier van enkele uren tot 10 uur.
De PC staat continu aan en moet de hele dag door 'data refresh' doen,
Dit bij WIndows10 prof en Excel 2016 !!
(Windows10 home i.c.m. Excel 2013 blijft wel goed werken)