Zellen auswerten
25.02.2007 10:53:00
Karl-Heinz
ich brauche mal Eure Hilfe. In meiner Tabelle zähle ich farbige Zellen mit der Funktion
Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
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
zusammen. In der Zelle in der die Auswertung stattfindet steht dann
=FARBEZÄHLEN(A1:O30;44)
Soweit funktioniert alles prima. Ich bekomme die Summe aller farbigen Zellen angezeigt. Nun zu meinem Problem. Da in den farbigen Zellen unterschiedliche Kürzel (zB F oder SaS usw) stehen möchte ich das nur dann gezählt wird wenn in diesen Zellen Farbe und das jeweilige Kürzel identisch sind. So in etwa
=FARBEZÄHLEN(A1:O30;44) und F
In den Auswerte Zellen soll dann stehen zB 3 (mal für F ), 7 (mal für Sas) usw. Leider bekomme ich das mit meinem bisschen Latein nicht hin. Kann mir bitte jemand helfen? Vielen Dank.
Gruß
Kalle