Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: SUMMEWENN Hintergrundfarbe ROT

SUMMEWENN Hintergrundfarbe ROT
22.06.2004 10:13:09
Detlef
Hallo alle im Forum,
ich wollte die Summe bilden wenn der Hintergrund einer Zelle z.B. rot ist. Gibt es da eine Möglichkeit.
Die erste Formel läuft, aber die Zweite geht so nicht. Ist es überhaupt möglich eine Formelabfrage zu gestalten unter Berücksichtigung der Farbe (Hintergrundfarbe)?
=SUMMEWENN(B:B;"x";A:A)
=SUMMEWENN(A:A;selection.interior.colorindex=6;A:A)
Gruß Detlef
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SUMMEWENN Hintergrundfarbe ROT
Torsten
Hallo Detlef,
das geht nur über VBA.
Gruß
Torsten
AW: SUMMEWENN Hintergrundfarbe ROT
Detlef
Hallo Thorsten,
und wie sieht soetwas aus. Hast Du da einen Tipp?
Danke
Detlef
AW: SUMMEWENN Hintergrundfarbe ROT
andreas
hallo detlef,
hier eine Function von hajo Function FarbsummeHA(Bereich As Range, Farbe As Integer) ' Hintergrund Dim Zelle Application.Volatile For Each Zelle In Bereich If Zelle.Font.ColorIndex = Farbe Then FarbsummeHA = FarbsummeHA + 1 End If Next End Function
musst entsprechend noch für deine gewünschte farbnummer anpassen.
Andere Bsp. zu Farbsummen von Hajo findest du hier:
http://home.media-n.de/ziplies/gepackt/vba/farbsumme.zip
gruß
andreas e


http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
DANKE und geschlossen
Detlef
Hallo Andreas,
vielen Dank! Habe die Funktion wie folgt angepasst.

Function FarbsummeDm(Bereich As Range, Farbe As Integer)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
'FarbsummeDm = FarbsummeDm + 1
FarbsummeDm = FarbsummeDm + Zelle
End If
Next
End Function

funktioniert super
Gruß
Detlef
Anzeige
AW: SUMMEWENN Hintergrundfarbe ROT
Boris
Hi Torsten,
das geht nur über VBA.
Stimmt nicht - geht auch recht problemlos mit Bordmitteln (ZELLE.ZUORDNEN).
Grüße Boris
AW: SUMMEWENN Hintergrundfarbe ROT
Detlef
Hi Boris,
und wie sieht soetwas aus?
Danke für Info
Detlef
SUMMEWENN Hintergrundfarbe GELB
Boris
Hi Detlef,
so geht das:
Einfügen - Name - Definieren, Name: Detlef
Bezieht sich auf:
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";))
Deine Werte stehen in Spalte A ab A1. Schreib in B1 (RECHTE Nachbarzelle!!!): =Detlef
und kopier das runter.
Das Ergebnis ist die Füllfarbe der linken Nachbarzelle als Zahl (gelb = 6).
Und darauf kannst du dann ganz einfach SUMMEWENN anwenden.
Achtung:
Das bloße Ändern der Füllfarbe einer Zelle löst keine Neuberechnung aus. Diese musst du bei Bedarf mit F9 selbst vornehmen.
So sieht das z.B. in Gänze aus (summiert werden nur die gelben):
 
 ABCDE
126 Summe Gelb:6
2335   
346   
450   
Formeln der Tabelle
B1 : =Detlef
E1 : =SUMMEWENN(B:B;6;A:A)
B2 : =Detlef
B3 : =Detlef
B4 : =Detlef
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Grüße Boris
Anzeige
Danke
Detlef
Hallo Boris,
vielen Dank!
Habe es gerade ausprobiert und was soll ich sagen, es funktioniert. EXCEL weiß manschmal selbst nicht, was Profies (und damit meine ich auch Dich) so alles raus holen können.
Gruß Detlef
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

SUMMEWENN mit Hintergrundfarbe in Excel


Schritt-für-Schritt-Anleitung

Um die Summe von Zellen mit einer bestimmten Hintergrundfarbe zu berechnen, benötigst du VBA (Visual Basic for Applications). Hier ist eine einfache Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11 in Excel.
  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Function FarbsummeHA(Bereich As Range, Farbe As Integer)
       Dim Zelle
       Application.Volatile
       For Each Zelle In Bereich
           If Zelle.Interior.ColorIndex = Farbe Then
               FarbsummeHA = FarbsummeHA + Zelle.Value
           End If
       Next
    End Function
  4. Schließe den VBA-Editor:

    • Drücke ALT + Q, um zurück zu Excel zu gelangen.
  5. Verwende die Funktion in Excel:

    • Gebe in einer Zelle ein: =FarbsummeHA(A1:A10; 6) (Für die Farbe Rot, ColorIndex 6).

Häufige Fehler und Lösungen

  • Fehler: #NAME?

    • Lösung: Stelle sicher, dass die Funktion korrekt im VBA-Editor eingefügt wurde und dass du sie richtig aufrufst.
  • Die Summe wird nicht aktualisiert, wenn die Farbe geändert wird.

    • Lösung: Führe eine Neuberechnung durch, indem du F9 drückst, um die Formel zu aktualisieren.

Alternative Methoden

Es gibt auch Methoden, die keine VBA-Kenntnisse erfordern, um farbige Zellen zu summieren. Eine Möglichkeit ist die Verwendung von ZELLE.ZUORDNEN:

  1. Definiere einen Namen:

    • Gehe zu Formeln > Namensmanager > Neu.
    • Name: Farbauswahl
    • Bezieht sich auf: =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)"))
  2. Verwende die Funktion:

    • In einer Zelle: =Farbauswahl
    • Dies gibt die Hintergrundfarbe der Zelle in der linken Nachbarzelle zurück.
  3. Summiere die Werte:

    • Nutze =SUMMEWENN(B:B;6;A:A) für die gelben Zellen.

Praktische Beispiele

Angenommen, du hast die folgenden Werte in Spalte A und die Hintergrundfarben entsprechen den folgenden ColorIndex-Werten:

A (Werte) B (Farben)
2 Gelb
3 Grün
4 Gelb
5 Rot

Um die Summe der gelben Zellen in Spalte A zu berechnen, gehe wie folgt vor:

  1. Definiere den Namen Farbauswahl wie oben beschrieben.
  2. In Zelle B1: =Farbauswahl
  3. Ziehe die Formel nach unten, um die Farben für alle Zellen in Spalte A zu erhalten.
  4. In Zelle E1: =SUMMEWENN(B:B;6;A:A) für die gelben Zellen.

Tipps für Profis

  • Verwende Named Ranges: Dies macht die Formeln einfacher und übersichtlicher.
  • Vermeide direkte Zellreferenzen: Nutze INDIREKT, um dynamische Bereiche zu erstellen.
  • Teste deine VBA-Funktionen: Stelle sicher, dass sie mit unterschiedlichen Farbcodes funktionieren.

FAQ: Häufige Fragen

1. Kann ich auch die Schriftfarbe summieren?
Ja, du kannst eine ähnliche VBA-Funktion schreiben, die Zelle.Font.ColorIndex anstelle von Zelle.Interior.ColorIndex verwendet.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online kein VBA. Du musst die Desktop-Version von Excel verwenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige