Excel 2010: SUMMEWENN in einem Bereich Zahlen in bestimmter Farbe vorkommen

Question

Wie bitte kann man in eine Zelle nur diejenigen Zahlen aus einem Bereich summieren, welche in der Farbe des Inhalts der Zelle dargestellt sind, in der die Formel das Ergebnis zeigen soll..?

Answer 1

Hallo Ronald,

ich bin davon ausgegangen, dass du die Ergebniszellen eingefärbt hast (Hintergrund) in der Schriftfarbe der zu summierenden Beträge.

Ist dies bei dir nicht der Fall, dann beschreibe mal näher, woher die Farbe genommen werden soll oder noch besser, stelle eine Demo-Mappe zur Verfügung.

Claus

Answer 2

Hallo Claus

Leider funktioniert das Modul bei mir noch nicht, denn Dein Code findet die Beträge mit der Fontfarbe braun nicht zur Summierung.

In Deinem Beispiel unterscheiden sich die Beträge auch in verschiedenen Fontfarben, aber die 3 Abfrage-Zellen haben unterschiedliche Farb-Hintergründe und die Fontfarbe des aufrufenden Befehls ist bei allen weiss.

Meine Abfrage-Zelle soll die Beträge in brauner Fontfarbe summieren und die Summe ebenfalls braun darstellen, weshalb ich den Befehl in der gleichen braunen Schrift erfasst habe. Die Zelle bleibt aber leer..!

Demnach muss das am Begriff Application.Caller.Interior.Color liegen. Ich dachte, das betreffe die Zelle, die den Befehl aufruft, aber das stimmt wohl nicht.

Woher nimmt Dein Code also die Fontfarben zur Unterscheidung..? Und wie bzw. wo kann ich die definieren..?

Ronald

Answer 3

Hallo Ronald,

lade dir hier die Demo-Mappe herunter:

https://1drv.ms/x/s!AqMiGBK2qniTgeEb_CLkDR5rlAo9vA

Am Beispiel ist einfacher ersichtlich, wie es funktioniert.

Claus

Answer 4

Guten Abend Claus

Ich kann zwar nicht programmieren, aber ich hab versucht, dieses Makro hinzubekommen. Das Ergebnis ist #NAME? in der mit =FarbSumme(D2:O71) aufrufenden Zelle.

Kannst Du mir deshalb bitte die einzelnen Schritte angeben, wie ich das Makro erstellen, wie benennen, wo speichern und wie aufrufen muss..?

Die Excel-Datei besteht aus den Jahres Tabellen von 2003 bis 2019, wobei ich das Makro erst ab 2018 einsetzen möchte.

Herzlichen Dank

Ronald

Answer 5

Hallo Ronald,

probiere es mit einer UDF:

Function FarbSumme(Bereich As Range) As Double

Dim Farbe As Long

Dim Rngc As Range

Farbe = Application.Caller.Interior.Color

For Each Rngc In Bereich

   If Rngc.Font.Color = Farbe Then

      FarbSumme = FarbSumme + Rngc

   End If

Next

End Function

Rufe die Funktion in der entsprechenden Zelle z.B. mit:

=FarbSumme(A1:A20) auf.

Claus