Label.Caption Kleuren

[ExcelAmateur]

Hallo Macro experts,

Ik wil als de Label.Caption op het formulier de huidige datum heeft, deze rood kleuren.
Als ik de MsgBox de Caption laat zien krijg ik de datums te zien die daarop staan.
Deze macro heb ik als amateur gemaakt.

Sub KleurDatum()
  With NieuwFrm
    For i = 5 To 18
      If Me("Label" & i).Caption = Date Then Me("Label" & i).ForeColor = &HFF&
    'MsgBox Me("label" & i).Caption
    Next
  End With
End Sub

Waarom werkt het niet?
Het zal wel iets simpels zijn denk ik maar ik zie het niet.

Het is niet echt belangrijk, ik zit maar wat te proberen, het leek me leuk als het werkt.

 

[wampier]

heb je "date" ook al eens ge-msgbox-ed ? mogelijk is het formaat anders en dan wordt er geen vergelijking gevonden.

mogelijk dat format(date,<jouwformat>) wel goed werkt.

 

[ExcelAmateur]

wampier,

Bedankt voor de reactie.
Als ik de 'voor de MsgBox weg haal laat hij de Label.Caption zien.
Dus de datum die daar op staat, deze haald hij van een Blad.
De eerste cel heeft de datum en de volgende cellen + 1, zo kom ik aan de volgende datum voor een Label.
Zou dit dan de oorzaak kunnen zijn dat het niet werkt?

Zoalds ik al melde het is niet erg belangrijk, het werkt zo ook perfect.
Het leek mij alleen leuk, als je gelijk ziet welke Label de juiste datum heeft.

Ik kan het programma niet hier plaatsen omdat er privé gegvens op staan.

 

[Cobbe]

Ik heb dat eens toegepast en gezien dat het wel werkt maar dat het vastloopt op de opmaak.

 

[ExcelAmateur]

Ik heb het gevonden, het werkt nu.
De systeem datum even veranderd om te controleren, met goed resultaat.
De macro ziet er nu zo uit;

Sub KleurDatum()
Dim TheDate As Date    ' Declare variables
TheDate = Date
  With NieuwFrm
    For i = 5 To 18
      If Me("Label" & i).Caption = TheDate Then Me("Label" & i).ForeColor = &HFF&
      'MsgBox Me("label" & i).Caption
    Next
  End With
End Sub

Hij kan misschien korter maar ik ben al tevreden hier mee.
Bedankt voor de geboden hulp.