|
Hallo,
ich werte regelmäßig Daten aus, die nach Farbe sortiert sind. Die Farbsortierung ist nach einem bestimmten Schema (größer als, kleiner als, zwischen, gleich etc.) und ich habe dafür bereits ein Makro. Der grüne Bereich ist z.b. entweder von -10 bis 0 oder von +10 bis 0. Das bekommt man gut mit bedingter Formatierung als Makro hin.
Da jedoch z.B. sowohl negative als auch positive Werte in der Farbe grün sind und ich diese einzeln zusammen zählen muss, suche ich noch nach einem VBA Code, der mir das erleichtert.
Bisher habe ich nur einen gefunden, der mir alle grünen Zellen addiert. Oder eben alle roten oder gelben.
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function
Wie schaffe ich es, dass er mir die Summe aller grünen Zellen mit negativen Werten macht und eben die aller positiven grünen Zellen?
|