Funktion til angivelse af farve på skrift

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


rRange  = området hvor den skal finde farven
rColor = en celle med den farve der skal findes

Det er kun baggrundsfarven, den kikker på

Det kan man ikke gøre uden selv at skulle lave en funktion i vba.

funktionen kunne se således ud


Function ColorSum(rRange As Range, rColor As Range) As Double
Dim rCell As Range, lRefColor As Long
Dim dSum As Double
dSum = 0
    Application.Volatile
    lRefColor = rColor.Font.ColorIndex
    For Each rCell In rRange
        If rCell.Font.ColorIndex = lRefColor Then
            If IsNumeric(rCell) Then dSum = dSum + rCell.Value
        End If
    Next rCell
    ColorSum = dSum
End Function


Den skal indsættes i et alm. makromodul
bruges sådan:
=colorsum(A1:A100 ; B1)
hvor B1 er en cellen hvor skriften har den farve man ønsker at summere A1:A100 på (altså en referencecelle)
Bemærk at excel IKKE genberegner ved farveskift, men skal tvinges dertil ved at trykke F9

du er hurtig hurtig hurtig kabbak. :-)
En lille forskel er at kabbak summen på cellens farve og min på skrifttypen farve

ja bak det var også din, jeg sendte, men med baggrundsfarver. ;-))

jeg kan se at du bak, også tjekker for at det er tal, så din løber med sejren. ;-))

Jer imponeret... Regnede med at vente flere dage på svar og har i øvrigt brugt flere timer på at lede alle funktioner igennem..... Det her sted virker sgu. Takker jer begge to mange gange for indsatsen

.

Bak skal svare for at du kan give ham point

Okay...

Nu tog du dem jo selv, opret et nyt spørgsmål, her i Excel kat. med overskriften ' Point til Bak' og henvis til dette spørgsmål.