datum textbox veranderen van kleur

Status
Niet open voor verdere reacties.
H

HammerJohn

Gebruiker
Lid geworden
27 apr 2016
Berichten
173
Goedenavond

Ik heb een userform dat datums ophaalt uit meerdere tabbladen, nu zou ik willen dat als de datum de datum van vandaag is dat hij
anders oplicht.

Kan dit met een simpele code of is dat in vba niet mogelijk.

bij voorbaat dank
 
Ja, dat kan.
 
Ik heb het volgende geprobeerd en dat werkt niet....
Hij werkt wel met de maand maar niet met de dag


PHP: 
Private Sub txtDay_Change()

End Sub

Private Sub UserForm_Initialize()
txtDay = Format(Date, "dd-mm")
For Each ct In F_00.Controls
    ct.BackColor = vbWhite
Next ct
For Each ct In F_00.Controls
    If ct.Tag = txtDayThen ct.BackColor = RGB(255, 0, 0)
    If ct.Tag < txtDay Then ct.BackColor = RGB(192, 192, 192)
Next ct
End Sub
 
Laatst bewerkt:
Mijn korte reactie was een hint om een voorbeeld documentje te plaatsen.

Maar is die missende spatie hier niet de oorzaak van je probleem?
Je zegt nl. ook niet of je een foutmelding krijgt en zoja, welke dan.
Code: 
If ct.Tag = txtDayThen
 
Laatst bewerkt:
nee dat had ik al aangepast, de kleur wijzigt niet van de cel

maar ik zal morgen even het voorbeeldje maken

omdat het bestand veel info bevat maak ik ff een voorbeeldje
 
De Tags van die controls zijn dan al wel correct gevuld?

Je kan dat stukje verwacht ik ook zo schrijven:
Code: 
Private Sub UserForm_Initialize()
    Grijs = RGB(192, 192, 192)
    txtDay = Format(Date, "dd-mm")
    For Each ct In F_00.Controls
        Select Case ct.Tag
            Case txtDay:        ct.BackColor = vbRed
            Case "":            ct.BackColor = vbWhite
            Case Is < txtDay:   ct.BackColor = Grijs
        End Select
    Next ct
End Sub
 
Laatst bewerkt:
Code: 
[COLOR=#060]Private[/COLOR] Sub UserForm_Initialize[COLOR=#009]([/COLOR][COLOR=#009])[/COLOR]
 [COLOR=#060] For[/COLOR] [URL="http://www.php.net/each"][COLOR=#00F]Each[/COLOR][/URL] ct In F_00[COLOR=#00F].[/COLOR]Controls
    ct.BackColor= choose(Abs(-2 + strcomp(ct, date)),vbgreen, vbred, vbWhite)
  [URL="http://www.php.net/next"][COLOR=#00F]Next[/COLOR][/URL]
[URL="http://www.php.net/end"][COLOR=#00F]End[/COLOR][/URL] Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan