Tæl hvis celle er farve

http://www.eksperten.dk/spm/635761

det er denne

Function ColorCount(rRange As Range, FColor As Range) As Double

Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Font.Color = FColor.Font.Color Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorCount = dCount
End Function

Hej kabbak

tak for hurtigt svar

Jeg skal bruge to tal et for Røde celler og et for Grønne

/s

også er det ikke font farven men celle farven

Function ColorCount(rRange As Range, rColor As Range) As Variant
    Dim rCell As Range
    Dim dCount As Double
    C = rColor.Interior.ColorIndex
    dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorCount = dCount

End Function

rRange er området den kikker på
rColor er en celle med den farve den skal tælle på

Det virker ret godt :)

kan man lave den sådan at den opdatere heletiden ?

/s

den opdaterer ikke,ved at du bare skifter farve, men hvis du ændrer i en af de celler den tæller på, så gør den.

ok - tak for hjælpen

smid et svar

et svar ;-))

Hvordan hvis jeg vil definere de enkeltceller og ikke område den skal tælle?