Summe ved specielle farver

I et almindeligt kodemodul smider du følgende kode:



I den celle hvor du vil have resultatet skriver du f.eks.:

=ColoredCellsSum(A1:A35)Public Function ColoredCellsSum(ByRef rCountArea As Range) As Double
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer

    For Each rCell In rCountArea
        If rCell.Interior.ColorIndex = 3 Then
            dRetVal = dRetVal + rCell.Value
        End If
    Next rCell

    ColoredCellsSum = dRetVal
End Function

Det kan godt lade sig gøre, men det kræver lidt VBA-kode.
Se http://tommy.bak.homepage.dk/colorfunctions.xls

ja men du skal så selv vælge hver enkel...

hmm - mit svar ser noget rodet ud - her er det igen

I et almindeligt kodemodul smider du følgende kode:

Public Function ColoredCellsSum(ByRef rCountArea As Range) As Double
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer

    For Each rCell In rCountArea
        If rCell.Interior.ColorIndex = 3 Then
            dRetVal = dRetVal + rCell.Value
        End If
    Next rCell

    ColoredCellsSum = dRetVal
End Function


I den celle hvor du vil have resultatet skriver du f.eks.:

=ColoredCellsSum(A1:A35)

Jeg synes ikke jeg får noget ud af koden formlen skriver bare 0 som resultat. (jeg er ikke den store vba-haj)
Kan godt bruge dit janvogt, så smid et svar. Tak for hjælpen!

Koden virker kun for celle, hvor farven er rød, det siger 3-tallet i linien:
If rCell.Interior.ColorIndex = 3 Then

Her kan du se at f.eks. 3 = rød
http://www.win-consult.com/Tips/LibrarySource.asp?App=Excel&Lib=ColorRows

Ahh...det hjælper lidt på det :-) Tak for indsatsen!

Giver lige janvogt en mulighed for at lave et svar så kan i dele points for begge svar kan bruges.

Hmm...time's up :-) Du høster det hele flemming.

Overlever nok :-)

Det glæder os Jan :-)