Tekstbox - Skrifttype farve med betingelser

Dim rArea As Range,rCelle As Range
Set rArea =ws.Range("H3:H43") ' kolonnen med start tidspunkt for rød, 1 min rød
For each rCelle in rArea
      If Format(.Value, "nn")=Format(rCelle.Value,""nn") then
              ' koden til timebox farveændring (rød)
      Else
            ' koden til timebox farveændring (neutral)
    End If
Next

Dim rArea As Range,rCelle As Range
Set rArea =ws.Range("H3:H43") ' kolonnen med start tidspunkt for rød, 1 min rød
For each rCelle in rArea
      If Format(.Value, "nn")=Format(rCelle.Value,""nn") then
              ' koden til timebox farveændring (rød)
      Else
            ' koden til timebox farveændring (neutral)
    End If
Next

Option Explicit

Dim NextTick As Date, PreviousTimerValue As Date
Dim NextTick2 As Date, PreviousTimerValue2 As Date
Dim ws As Worksheet, rCell As Range, rCell2 As Range

Sub StartTime()
Set ws = Sheets("Calculations")
Set rCell = ws.Range("A1")
Set rCell2 = ws.Range("B1") '-----------Cellen den skal tælle ned i

PreviousTimerValue = rCell.Value
If rCell2 = "" Then rCell2 = TimeValue("01:00:00")
PreviousTimerValue2 = rCell2.Value

Call ExcelStopWatch
End Sub

Private Sub ExcelStopWatch()
rCell.Value = rCell.Value + TimeValue("00:00:01")

With rCell2
    .Value = .Value - TimeValue("00:00:01")
    If .Value < TimeValue("00:01:00") Then ' maler baggrunden rød det sidste minut
        .Interior.ColorIndex = 3
    Else
        .Interior.ColorIndex = 0
    End If
    ' maler timebox
    Dim rArea As Range, rCelle As Range, TidA As Date, TidB As Date
    Set rArea = ws.Range("H3:H42") ' kolonnen med start tidspunkt for rød, 1 min rød
    For Each rCelle In rArea
        TidA = Format(rCell.Value, "hh:mm")
        TidB = Format(rCelle.Value, "hh:mm")
        If TidB = TidA Then
            With StopWatch.Shapes("TimeBox")
                .Fill.ForeColor.RGB = RGB(0, 255, 0) ' koden til timebox farveændring
            End With
            Exit For
        Else
            With StopWatch.Shapes("TimeBox")
                .Fill.ForeColor.RGB = RGB(255, 255, 255) ' koden til timebox farveændring
            End With
        End If
    Next
    '-----------------'
    If .Value = TimeValue("00:00:00") Then .Value = TimeValue("01:00:00") ' når timen er udløbet starter den automatisk på en time igen
End With

NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "ExcelStopWatch"
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=NextTick, procedure:="ExcelStopWatch", schedule:=False
End Sub

Sub Reset()
On Error Resume Next


Application.OnTime earliesttime:=NextTick, procedure:="ExcelStopWatch", schedule:=False
rCell.Value = TimeValue("00:00:00")
rCell2.Value = TimeValue("01:00:00")
End Sub