VW opmaak kleur

[AC1841949]

Hallo,

Kan er soms iemand mij vooruit helpen met een formule in vw opmaak?

Ik heb reeds verschillende mogelijkheden geprobeerd, maar het is mij niet gelukt!
(zie bijlage)

Bekijk bijlage VW-opmaak(kleur).xlsx

Alvast bedankt voor de medewerking.

 

[Cobbe]

Ik denk dat deze code dat voor u opknapt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCel As Object
    For Each objCel In Range(Cells(20, 8), Cells(36, 8))
        Inhoud = objCel.Value
            Select Case Inhoud
                Case "Klein onderhoud"
                     Range("B" & objCel.Row & ":J" & objCel.Row).Interior.ColorIndex = 3
                Case "Herstelling"
                     Range("B" & objCel.Row & ":J" & objCel.Row).Interior.ColorIndex = 6
                Case "Keuring"
                     Range("B" & objCel.Row & ":J" & objCel.Row).Interior.ColorIndex = 8
                Case "Andere"
                     Range("B" & objCel.Row & ":J" & objCel.Row).Interior.ColorIndex = 12
            End Select
    Next objCel
End Sub

Wel nog de kleuren aanpassen.

 

[popipipo]

Of gewoon via VO

=$H20="Keuring"

het $ -Teken voor de H is het verschil.

 

[AC1841949]

Bedankt Cobbe en popipipo, het is gelukt.

Ik heb de aanpassing gedaan ($) in de bestaande formule.

Nogmaals bedankt allebei, en Prettige Feestdagen.