Optellen van gekleurde cel met een "x"

[Klijhoofd]

Hallo,

Ik ben op zoek naar een mogelijkheid om "match" cellen op te tellen. In dit geval is de "matchcel" een cel die groen van kleur is en de letter "x" bevat. De uitkomsten van de optelling mogen per regel aan de rechterkant geplaatst worden.

Note: de groene kleur van de cel is niet dmv voorwaardelijke opmaak, maar dmv een macro.

In de bijlage een voorbeelddocument.

Ben heel benieuwd of hier een oplossing voor is.

 

[HSV]

Zoiets?

Sub hsv()
Dim i As Long
Dim j As Long
With Sheets("Blad1")
 .Columns(20).ClearContents
   For i = 1 To .UsedRange.Rows.Count
   For j = 1 To 19
     If UCase(.Cells(i, j).Value) = "X" And .Cells(i, j).Interior.ColorIndex = 4 Then
      .Cells(i, 20) = .Cells(i, 20) + 1
        End If
      Next j
   Next i
 End With
End Sub

Trouwens: Ik heb je vorige vraag beantwoord.

 

[VenA]

Met een UDF moet het wel lukken.

Function tel_kleur_tekst(c, r As Range) As Long
tel_kleur_tekst = 0
For Each cl In r
    If c.Interior.Color = cl.Interior.Color Then
        If c = cl Then tel_kleur_tekst = tel_kleur_tekst + 1
    End If
Next
End Function