Farbige Zellen addieren

Hallo zusammen!

Gibt es die Möglichkeit in Excel farbige Zellen zu addieren? Ich habe eine Kalkulation mit internen und externen Kosten. Die internen Kosten sind alle gelb und die externen grün hinterlegt. Am Ende meiner Kalkulation möchte ich alle Werte aus den jeweiligen Zellen addieren. Bisher „suche“ ich die einzelnen Beträge und addiere sie per Hand. Schöner wäre es doch wenn ich Excel sagen könnte: Addiere alle gelben Zellen!

Gibt es die Möglichkeit überhaupt? Und wenn ja, hat jemand eine Idee dazu?

Hallo,

wenn du bei Google mit den Worten „Farbige Zellen addieren“ gesucht hättest, dann würden etwa 8090 Seiten gefunden werden.
Es wäre von Vorteil wenn man wüsste mit welcher Version von Excel du das machen möchtest.

Gruß
nukem21

Pro 2003

Gibt es die Möglichkeit in Excel farbige Zellen zu addieren?

Hallo Eric
Dieses Thema ist vor nicht allzu langer Zeit hier behandelt worden.
Irgendjemand hat folgende Function angegeben:

Public Function SUMMEWENNFARBE \_
 (Summenbereich As Range, \_
 Farbzelle As Range) \_
 As Double
Application.Volatile
Dim rZelle As Range
Dim vFarbwert
Dim dblErgebnis As Double
 vFarbwert = Farbzelle.Interior.Color
 For Each rZelle In Summenbereich.Cells
 If IsNumeric(rZelle.Value) And \_
 rZelle.Interior.Color = vFarbwert Then
 dblErgebnis = dblErgebnis + rZelle.Value
 End If
 Next rZelle
 SUMMEWENNFARBE = dblErgebnis
End Function

Zur Anwendung: Die Formel braucht zwei Parameter:
=SUMMEWENNFARBE(Zellbereich;Farbzelle)
Zellbereich: Die Zellen, die addiert werden sollen.
Farbzelle: Eine Zelle, die mit der zu addierenden Farbe eingefärbt ist.

Die Formel klappt ausgezeichnet. Ein kleiner Nachteil, der Excel-bedingt ist: Bei jeder Aenderung muss die Tabelle oder die ganze Datei neu berechnet werden: F9 oder allenfalls CTRL-ALT-F9.

Ich hoffe, die Function klappt auch bei Dir.
Grüsse Niclaus