kleur aan knop toekennen na er op te klikken

[sgeboers1993]

Hoe schrijf ik best de code achter een drukknop voor bijvoorbeeld:

OK NOK

Na klikken op de drukknop van OK wordt deze groen
Na klikken op de drukknop van NOK wordt deze rood

grtz

 

[jkpieterse]

Waar staan deze knoppen en welk soort knoppen zijn het?

 

[sgeboers1993]

Gewonen drukknoppen met tekst in

 

[Cobbe]

Wellicht kun je hier uit halen wat nodig is.

 

[SjonR]

Zijn het knoppen uit de formulierbesturingselementen of uit de ActiveX-besturingselementen?

 

[sgeboers1993]

Het gaat om formulier besturingselementen.

Er staan in 1 cel 2 drukknoppen, Ok & NOK
Als er op de OK button wordt geklikt kleurt deze groen...
Als er op de NOK button wordt geklikt kleurt deze rood...

 

[edmoor]

Gebruik ActiveX knoppen.

 

[jkpieterse]

Of je kleurt de tekst zelf:
Beide knoppen aan deze subroutine knopen die je in een normale module plaatst.

Sub Button1_Click()
    Dim oBtn As Button
    Set oBtn = ActiveSheet.Buttons(Application.Caller)
    If oBtn.Caption = "OK" Then
        If oBtn.Font.Color = vbGreen Then
            oBtn.Font.Color = vbWindowText
        Else
            oBtn.Font.Color = vbGreen
        End If
    ElseIf oBtn.Caption = "NOK" Then
        If oBtn.Font.Color = vbRed Then
            oBtn.Font.Color = vbWindowText
        Else
            oBtn.Font.Color = vbRed
        End If
    End If
End Sub