Addierung nach Zell-Hintergrundfarbe
07.03.2017 13:54:24
André
ich habe hier einen alten Code von HermannZ, den ich immer noch oft benutze.
Nun habe ich noch ein kleines Problem.
Mit folgendem Code in der Zelle wird die Summe errechnet. =Summefarbzahl(E1;E14:E1018)
Wenn ich in dem Bereich E14:E1018 aber ein Wort in eine Zelle eingebe, dann kommt nur #WERT!
Kann man den Code noch so anpassen, das Text ignoriert wird?
'Summiert die Zellen mit farbigen Zahlen einer bestimmten Farbe
'Funktionsaufruf =Summefarbzahl(Zelle mit der gesuchten Farbe;Bereich)
'Quelle: HermannZ
Function Summefarbzahl(Farbe As Range, Bereich As Range)
Dim i As Range
Dim intColor As Integer
Application.Volatile
intColor = Farbe(1).Font.ColorIndex
For Each i In Bereich.Cells
If i.Font.ColorIndex = intColor Then
Summefarbzahl = Summefarbzahl + i
End If
Next
End Function
André