Addition von roten Zahlen
25.01.2007 11:09:48
roten
ich habe eine Spalte mit Ziffern, die sich
teilweise mithilfe der bedingten Formatierung
rot färben. Nun habe ich auch einen ganz tollen Code s.u.
der auch super funktioniert, aaaaber leider nur mit dem
rot der bedingten Formatierung nichts anfangen kann.
Wenn ich die Ziffer nochmal rot färbe funktioniert er.
Gibt es eine Möglichkeit, auch die Summe der roten Ziffern
zu berechnen, die sich durch die bedingte Formatierung rot
färben ?
Bin für jeden Hinweis dankbar,
Viele Grüße
Ralf
Function FarbsummeS(Bereich As Range, Farbe As Integer)
'* H. Ziplies *
'* 07.10.04 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
' Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
FarbsummeS = FarbsummeS + Zelle
End If
Next
End Function