Betinget formatering / farver

Hej
Er der tomme celler i a kolonnen?
Er der tomme celler i Rækkerne?

'----- VBA koden sættes ind i arket i vba editoren ----'

Option Explicit
Dim Ark As Worksheet
Dim KolA As Range
Dim Række As Range
Dim CellA As Range, CellB As Range
Private Sub SetVar()
    Set Ark = ActiveSheet
    Set KolA = Ark.Range("A1")
    Set KolA = Range(KolA, KolA.End(xlDown))
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    SetVar
    For Each CellA In KolA
        Select Case CellA.Offset(0, 2).Value
            Case "Mand", "mand"
                Farve 0, 0, 255
            Case "Kvinde", "kvinde"
                Farve 255, 0, 0
            Case "Par", "par"
                Farve 255, 255, 0
        End Select
    Next CellA
End Sub
Private Sub Farve(Roed As Integer, Groen As Integer, Blaa As Integer)
        Set Række = Range(CellA, CellA.End(xlToRight))
        For Each CellB In Række
            Select Case CellB.Address
                Case CellA.Offset(0, 16).Address
                    With CellB.Interior
                        .Pattern = xlNone
                    End With
                Case CellA.Offset(0, 17).Address
                    With CellB.Interior
                        .Pattern = xlNone
                    End With
                Case CellA.Offset(0, 18).Address
                    With CellB.Interior
                        .Pattern = xlNone
                    End With
                Case CellA.Offset(0, 19).Address
                    With CellB.Interior
                        .Pattern = xlNone
                    End With
                Case CellA.Offset(0, 20).Address
                    With CellB.Interior
                        .Pattern = xlNone
                    End With
                Case Else
                    With CellB
                        .Interior.Color = RGB(Roed, Groen, Blaa)
                    End With
            End Select
        Next CellB
End Sub

hvis data starter I række 2, så marker fra A2 og til sidste kolonne du vil have med række 2.

Formlen er = $C2 = "Mand"
vælg blå farve

klik på tilføj og vælg

Formlen er = $C2 = "Kvinde"
vælg Rød farve

klik på tilføj og vælg

Formlen er = $C2 = "Par"
vælg Gul farve

tryk Ok og luk boksen

Marker Række 2 i kolonne Q, R, S, T og U

vælg betinget Formatering, slet alle 3 formater og tryk ok

nu vil farven forsvinde fra disse kolonner

marker hele række 2, vælg format penslen og brug den på resten af arket

Godmorgen Jan
Tusind tak. Det var lige hvad jeg ledte efter.

Velbekomme