štetje celic v katerih je pisava rdeča

[direndaj]

Med vašimi nasveti sem našel primer, ki lepo deluje če hočemo prešteti obarvane celice, jaz pa bi želel prešteti celice v katerih je pisava npr. rdeča. Probal sem spremeniti interior v font color pa ne deluje. Že vnaprej hvala za odgovor. Roman

[admin]

Pozdravljeni,

glede na tematiko (http://www.matjazev.net/forum/viewtopic.php?t=163), je koda pač sledeča:

Koda: Izberi vse

    Dim celica, stevec
    
    stevec = 0
    For Each celica In Range("a1:m100").Cells
        If (celica.Characters.Font.ColorIndex = 3) Then stevec = stevec + 1
    Next

    MsgBox "rdečih celic je " & stevec