Farbsumme bei bedingter Formatierung
08.03.2005 12:26:59
Karl-Heinz
Function Sumyellow(Bereich As Range)
Sumyellow = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 6 Then
Sumyellow = Sumyellow + Zelle.Value
End If
Next
End Function
Vielen Dank