Hulp met code voor kleuren cel

[marcel31281]

Ik heb een code geschreven dat als in kolom A een groene "v" komt te staan de cel in D ook groen wordt.
Echter werkt dit pas na 2 keer het event uitvoeren en niet na de 1e keer

Wie weet wat hier fout gaat?

 

[AHulpje]

Bij klikken op Label2 in het formulier plaats je een groene v in kolom A, waarom dan niet gelijk de datum invullen en de cel in kolom D groen maken?
Op het moment dat je vanuit het formulier een v plaatst wordt direct de Worksheet_Change event getriggerd, dus nog voordat je van de betreffende cel de Font.Color hebt gewijzigd:

Private Sub Label2_Click()
     ActiveCell.Value = "v"
     'Nu wordt eerst de Worksheet_Change getriggerd
     ActiveCell.Font.Color = RGB(0, 128, 128)
     Unload Me
End Sub

 

[emields]

zoiets?

 

[marcel31281]

Bedankt dit was inderdaad een betere oplossing