Summe der Felder ohne "rote"



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Summe der Felder ohne "rote"
von: Markus
Geschrieben am: 01.07.2002 - 08:25:46

Hallo

Ich möchte die Felder zusammenzählen die nicht Rot als Hintergrundfarbe oder auch Rot als Textfarbe sind.

Kann mir da jemand helfen.

Besten Dank zum voraus

Gruss Markus


nach oben   nach unten

Re: Summe der Felder ohne "rote"
von: Markus
Geschrieben am: 01.07.2002 - 08:57:36

Danke für eure Bemühungen

Ich habe es selber rausgefunden

Function Summenichtrot(bereich As range)
Dim zelle As range
Dim res As Double

For Each zelle In bereich.Cells
If zelle.Font.ColorIndex <> 3 Then
res = res + zelle
End If
Next

Summenichtrot = res

End Function


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Summe der Felder ohne "rote""