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