VBA ik zoek een programmeercode

[Joerii14]

hallo ik zoek een programmeercode voor VBA en ik heb hierbij uw hulp nodig.
Ik zal het aan u uitleggen wat ik precies moet hebben.
ik heb een plaatje gemaakt en ook hieronder staat een voorbeeld.
kijk als ik in dit voorbeeld van kleur wil veranderen moet ik een getal intypen maar daarna ook op de cell klikken en dit wil ik niet ik wil namelijk dat dat automatisch gaat.
download iniedergeval mijn voorbeeld anders zul je het niet gaan snappen.

Bij voorbaat dank,

Joeri van grimbergen

 

[Joerii14]

Sorry voor de vraag al gevonden.

 

[etri]

en? hoe dat je dat dan?

 

[etri]

Ik zou overigens de code veranderen in onderstaande. Is iets netter en werkt ook als de celwaarde indirect wordt gewijzigd...

Private Sub Worksheet_Change(ByVal Target As Range)
    Static oldValue As Long
    
    If Range("C3").value <> oldValue Then
        oldValue = Range("C3").value
        ChangeColor oldValue
    End If
End Sub

Private Sub ChangeColor(value As Long)
    With Worksheets(1)
        .Shapes(1).Visible = False 'groen
        .Shapes(2).Visible = False 'oranje
        .Shapes(3).Visible = False 'rood
        
        If value >= 0 And value < 5000 Then
            .Shapes(3).Visible = True 'rood
        ElseIf value >= 5000 And value < 10000 Then
            .Shapes(2).Visible = True 'oranje
        Else
            .Shapes(1).Visible = True 'groen
        End If
    End With
End Sub

 

[Joerii14]

Ja ik weet het maar heb dit op het internet gezocht en gevonden en ik ben een beginner dus ik leer dat wel nog allemaal maar dit was overigens het eerste programma wat ik geschreven had.