Skift af tekst farve hvis dato er overskredet
Jeg bruger Microsoft Date and Time Picker Control 6.0 i forbindelse med en to-do liste. Det virker sådan set ok, men jeg vil gerne have at den skifter tekst farve hvor datoen ligger før i dag (dvs. den dag man har dokumentet åbent). Jeg troede jeg kunne bruge ”conditional formating” men det virker ikke, det virker ikke som om datoen man har valgt, kommer vi at ligge som en værdi i den enkelte celle. Nogen der ved hvordan man kan så teksten til at skifte farve hvis den valgte dato er før dagen i dagNuværende kode Visual Basic:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
With Ark1.DTPicker1
.Height = 20
.Width = 20
If Not Intersect(Target, Range("B:B")) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.LinkedCell = Target.Address
Else
.Visible = False
End If
End With
End Sub