Hallo ich suche eine Mögligkeit um alle Zellen, Spaltenweise anhand der
Hintergrundfarbe zu zählen.
Ich habe in den Spalten H bis BX bestimmte Zellen mit gelber Hintergrundfarbe.
Diese gelben Zellen möchte ich Spaltenweise zusammenzählen.
Weis da jemand eine Lösung ?
Mögligst ohne VBA
Gruß
Fred
Danke euch, aber die VBA Funktion ergibt bei mir als Ergebnis nur XXXXXXXXXXXX.
Und die zweite Variante mit der Hilfsspalte geht bei mir aus Platzgründen nicht.
Fred
AW: Mit VBA
11.10.2004 19:24:55
HermannZ
Hallo Fred,
füge folgende Funktion in das entsprechende Blatt ein.
Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
'
Function zum Zählen der Anzahl Zellen einer bestimmten Farbe
'Funktionsaufruf: =FARBEZÄHLEN(Bereich;FarbcodeNr:)
Dim C As Range
For Each C In Bereich
If C.Interior.ColorIndex = Farbe Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Next C
End Function
Beispiel: