Vielen Dank im Voraus für jede Hilfe, die Sie anbieten können.
Mit Hilfe dieser Seite habe ich die folgende Funktion erstellt;
Funktion ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
rCell als Bereich dimmen
Dim lCol So lange
vResult abdunkeln
lCol = rColor.Interior.ColorIndex
Wenn SUM = True Then
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Nächste rCell
sonst
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vErgebnis = 1 + vErgebnis
End If
Nächste rCell
End If
Farbfunktion = vErgebnis
End Function
In jeder Zielzelle möchte ich eine Summe aller Zellen in dieser Zeile, die die Farbe der angegebenen Zelle enthalten;
=Farbfunktion(AR4,H5:AP5,TRUE)
Wie kann ich den Zielverkauf aktualisieren, wenn eine andere Zelle in der Zeile (H5:AP5) die Farbe ändert?
Mit Hilfe dieser Seite habe ich die folgende Funktion erstellt;
Funktion ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
rCell als Bereich dimmen
Dim lCol So lange
vResult abdunkeln
lCol = rColor.Interior.ColorIndex
Wenn SUM = True Then
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Nächste rCell
sonst
Für jede rCell in rRange
Wenn rCell.Interior.ColorIndex = lCol Then
vErgebnis = 1 + vErgebnis
End If
Nächste rCell
End If
Farbfunktion = vErgebnis
End Function
In jeder Zielzelle möchte ich eine Summe aller Zellen in dieser Zeile, die die Farbe der angegebenen Zelle enthalten;
=Farbfunktion(AR4,H5:AP5,TRUE)
Wie kann ich den Zielverkauf aktualisieren, wenn eine andere Zelle in der Zeile (H5:AP5) die Farbe ändert?