Sub FarberAddieren()
Dim c As Range, i As Double
Farbwert = ActiveCell.Interior.ColorIndex
For Each c In Range("B1:B10")
If c.Interior.ColorIndex = Farbwert Then i = i + c.Value
Next c
Worksheets(1).Range("A1").Value = i
End Sub
Einfach Zelle mit zu addierender Farbe markieren und dann das Makro ausführen.
Solltest den Bereich ("B1:B10") natürlich für dich anpassen :O)
Gruß
Thomas
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
mittels einer Funktion
In Zelle=Farbsumme(A1:A10;3) für Rot
Gruß Hajo