farve funktion

Er du sikker på at det er en Function, det kan jo godt være en navngivet celle eller område

Ved det ikke, jeg har "lånt" den fra bak´s hjemmeside !

=coloredcells(Område;reference)

det her er en ag Baks funktioner

Den kan se farven på cellen og så lægge tallene sammen



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

Hvordan fungerer den. Det er en bestemt farve jeg skal have talt celler på ?

=ColorCount(Området med data, Hvilken farve)

eks.
= ColorCount(A1:G25,H1)

hvor H1 har den farve der skal søges efter

denne tæller værdierne i cellerne sammen, ikke kun antal celler

Den skal kun tælle antal celler der er i den rigtige farve

hvis den kun skal tælle, skal denne linie rettes

fra
  dCount = dCount + rCell
til

  dCount = dCount + 1

hvor placerer den resultatet ?

i den celle du skriver det i

hvis du skriver = ColorCount(A1:G25,H1)i I1 kommer resultatet også der

det er jo en funktion

koden skal være i et modul

så lykkedes det. smider du et svar. tak for hjælpen

et svar ;-))