Voorwaardelijke opmaak tellen

[Jack Nouws]

Hallo,

Naar aanleiding van deze topic heb ik een oplossing in VBA gezocht met deze code. (met dank aan wigi)

Sub KleurTellen()
Dim i       As Integer
Dim c       As Variant
Dim cl      As Range
Application.ScreenUpdating = False
[N4:N31].ClearContents

    For Each cl In [D35:I47]
        If cl.Value <> "" Then
            For i = 4 To 31
                For Each c In Range("D" & i, "M" & i)
                    If cl.Value = c.Value Then
                        Cells(i, 14).Value = Cells(i, 14).Value + 1
                    End If
                Next c
            Next i
        End If
    Next cl

Application.ScreenUpdating = True
End Sub

Nu is mijn vraag is dit een logische code of zou deze in een simpelere uitvoering kunnen?

Met vr gr
Jack