Re: Makro i tilladt tidsrum

Hej derude,
Fik denne foræret af supertekst(takker), men har en udfordring da jeg skal have en til at virke i tidsrummet 18.30-6.30 og en til 21.00-3.00 også.
Håber, at nogle kan hitte ud af det.
Problemet er, at jeg ikke kan rette tiden til, så den virker når den passerer midnat.

Sub testKl_2()
Const fraKl = "9:45"
Const tilKl = "10:15"
Dim kl1 As Date, kl2 As Date
    kl1 = fraKl
    kl2 = tilKl
   
    If TimeValue(Now) >= kl1 And TimeValue(Now) <= kl2 Then
        Stop
Rem Ok - makro kan udføres
       
    Else
        MsgBox "Kan kun udføres mellem " & fraKl & "-" & tilKl
    End If
End Sub