> Makróval várhatóan meg tudom oldani, de ugye jó látom, hogy nem fog menni
> beépített függvényekkel?
Szerintem jól látod!

VB:

Function Számol(Tartomány As Range, Szín As Integer)
Dim Cella  As Object
Dim db As Long
    Application.Volatile
    For Each Cella In Tartomány
        If Cella.Interior.ColorIndex = Szín Then db = db + 1
    Next
    Számol = db
End Function

vagy valami hasonló

üdv: Nits L.
_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/

válasz