Option Explicit
Public WarnFarbe As Long
Public AlarmFarbe As Long
Public WarnZeit As Long
Public Alarm As Range
Public Sub Timer1()
If Sheets(1).CheckBox1.Value Then faerben
End Sub
Public Sub Timer2()
If Sheets(1).CheckBox1.Value Then
faerben
Application.OnTime Now + TimeSerial(0, 0, 1), "Timer3"
End If
End Sub
Public Sub Timer3()
If Sheets(1).CheckBox1.Value Then
faerben
Application.OnTime Now + TimeSerial(0, 0, 1), "Timer3"
End If
End Sub
Public Sub Start()
WarnFarbe = RGB(256, 256, 0)
AlarmFarbe = RGB(256, 0, 0)
WarnZeit = 10
Set Alarm = Sheets(1).Range("B4")
End Sub
Public Sub faerben()
If DateDiff("s", Time, Alarm) <= WarnZeit And DateDiff("s", Time, Alarm) > 0 Then
Alarm.Interior.Color = WarnFarbe
ElseIf DateDiff("s", Time, Alarm) < 0 Then
If Alarm.Interior.Color = AlarmFarbe Then
Alarm.Interior.Pattern = xlNone
Else
Alarm.Interior.Color = AlarmFarbe
End If
Else
Alarm.Interior.Pattern = xlNone
End If
End Sub
Public Sub TimerSetzen()
If DateDiff("s", Time, Alarm) > WarnZeit Then
Application.OnTime DateAdd("s", -WarnZeit, Alarm), "Timer1"
End If
If DateDiff("s", Time, Alarm) > 0 Then
Application.OnTime Alarm, "Timer2"
Else
Application.OnTime Now + TimeSerial(0, 0, 1), "Timer3"
End If
End Sub