Excel - opsummering af bestemte/vilkårlige felter

en Funktion bak har lavet engang



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 den skal kikke på
rColor  = en celle med den farve der skal findes

Er det noget man kan inde i selve excel? Jeg spørger kun fordi jeg ikke ved det :-)

Ja.

I Excel, tryk ALT +F11
nu er du i VBA editoren
vælg insert module.

kopier koden derind

Luk VBA editoren på øverste højre X

Nu er du tilbage på arket

I en celle skriver du =ColorCount(A1:B30;D1)

hvor A1:B30, er dit område der skal summeres på farve og D1 er en celle med den farve der skal findes.

Nb, husk det er cellefarven og ikke tekstfarven

Og at gemme regnearket, ellers er funktionen væk næste gang.

oki, det lyder sq nice...

Prøver lige, skal nok vende tilbage med status-rapport ;-)

Men tak indtil videre

hvad er status nu. ??

rimelig remolade du ;-)

Vi takker for hjælpen!
Læg lige et svar så skal jeg satme smide nogle point efter dig makker, hehe.

et svar ;-))

tak for point.