| home |  
  

   © 2005 by Friedel Schmidt •  E-Mail  •                      Top  

   | impressum | feedback | home |  


Inhaltsverzeichnis

Suchen

Links
  

Farbige Zellen summieren
Versionen: Excel 97

Basierend auf der Möglichkeit, farbige Zellen zu zählen, kann man auch die in den farbig formatierten Zellen vorhandenen Werte summieren:

Function Farbsumme(Bereich As Range, Farbe)
    summe = 0
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex = Farbe And IsNumeric(Zelle) Then
        summe = summe + Zelle.Value
        End If
    Next
    Farbsumme = summe
End Function


Mit =Farbsumme(A1:A10;3)erhält man die Summer der Werte aller rot markierten Zellen im Bereich A1:A10

Wenn allerdings z.B. die Zellen in Spalte A farbig sind und die Werte der Spalte B summiert werden sollen, muß man sich einer Hilfsspalte bedienen. Im Beispiel ist dies die Spalte C.

In C1 wird die Formel der benutzerdefinierten Funktion "Farbindex" =Farbindex(A1) eingetragen und bis zur letzten zu beücksichtigenden Zelle nach unten kopiert.

Mit =SUMMEWENN(C1:C10;3;B1:B10) erhält man die Summe der Werte in Spalte B, deren entsprechenden Zellen in Spalte A mit der Farbe gemäß dem Farbindex 3 (Rot) formatiert sind.

FarbeWerteFarbindex
 ABC
1 15
2 23
3 36
4 45
5 53
6 63
7 76
8 85
9 96
10 103




Benutzerdefinierte Funktion "Farbindex"
Farbige Zellen zählen
Farb - Indizies