MsgBox ifv tijdstip

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen,

Ik heb een MsgBox die ik soms handmatig 'aanzet', maar ik zou deze elke dag willen tonen tussen 2100 en 2230 (bij openen file).
Kan ik dit aan elkaar linken?

Mvg
 
Als het om Excel gaat, zoiets:
Code: 
Private Sub Workbook_Open()
    If Time() >= #9:00:00 PM# And Time() <= #10:30:00 PM# Then
        MsgBox "Tijd om het bericht te tonen."
    End If
End Sub
 
Laatst bewerkt:
Super bedankt!
Hoe kon ik het "draaien van de cursor weer uitschakelen?
 
Geen idee eigenlijk :confused:
 
Application.ScreenUpdating = False

of

application.displayalerts
 
Dat kan je uiteraard makkelijk zelf testen, maar geen van beide zal doen wat je wilt.

Je kan een bericht ook tonen via een Userform, dan is die draaiende cursor er niet.
 
Laatst bewerkt:
Of ?

Code: 
Private Sub Workbook_open()
    Application.OnTime TimeSerial(21, 0, 0), "M_snb"
End Sub

Sub M_snb()
    MsgBox "Niet doorvertellen aan Ed "
End Sub
 
@ snb

Hoe lees ik dit?
Ga ik uren is proberen aan te passen...

Code: 
(21, 0, 0),
 
@ snb/ed

In bijlage file, bij openen krijg ik foutmelding...
Excel 2016?
 
Laatst bewerkt:
Dan heb kennelijk een fout gemaakt in die functie.
Voor een gerichter antwoord is het Excel document, aan Word hebben we niks voor een probleem in Excel.
 
De Module MsgBox heeft dezelfde naam als de interne functie MsgBox, dat is niet toegestaan.
Geef deze module dus een andere naam.
 
Kijk eens naar de functies Date(), Now(), WeekDay() en Format().
 
Thanks!

Opgelost....

***
Sub Tekst_Weekdag()

If Weekday(Date, vbMonday) = 5 And Time() >= #8:00:00 AM# And Time() <= #8:30:00 AM# Then
MsgBox "Mercikes edmoor!!!"
End If

End Sub
***
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan