Option Explicit
Public WarnFarbe As Long
Public AlarmFarbe As Long
Public Alarm As Range
Public Zaehler As Range
Public letzteZeit As Date
Public Pause As Boolean
Public ZählerLäuft As Boolean
Public WarnZeit As Long
Public Sub Timer()
Pause = True
If Alarm >= Time Then Zaehler = Alarm - Time Else Zaehler = 0
Pause = False
If Sheets(1).CheckBox1.Value Then
If DateDiff("s", Time, Alarm) <= WarnZeit And DateDiff("s", Time, Alarm) > 0 Then
Zaehler.Interior.Color = WarnFarbe
ElseIf DateDiff("s", Time, Alarm) <= 0 Then
If Zaehler.Interior.Color = AlarmFarbe Then
Zaehler.Interior.Pattern = xlNone
Else
Zaehler.Interior.Color = AlarmFarbe
End If
Else
Zaehler.Interior.Pattern = xlNone
End If
start Time + TimeSerial(0, 0, 1), "Timer"
Else
ZählerLäuft = False
End If
End Sub
Public Sub Init()
WarnFarbe = RGB(256, 256, 0)
AlarmFarbe = RGB(0, 256, 0)
WarnZeit = 60 * 60
Set Zaehler = Sheets(1).Range("A4")
Set Alarm = Sheets(1).Range("B4")
End Sub
Public Sub start(Zeit As Date, Prozedur As String)
letzteZeit = Zeit
Application.OnTime Zeit, Prozedur
End Sub