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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen