Zähle Markierte Zellen nach Farben
10.05.2006 09:50:41
USL
ich bin dabei eine klein Funktion zu bauen via VBA.
in einem definierten Range, sollte alle Zellen die die Hintergrundfarbe Rot haben gezählt werden.
Dies klappt auch mit folgender funktion:
in Excelsheet habe ich folgende Formel gemacht um den gezählten Wert zu zeigen:
=zähleFarbe(a1:a10;3)
____
Function ZähleFarbe(Bereich As Range, Farbe As Integer)
Dim zelle As Range
Application.Volatile
For Each zelle In Range("a1:a10")
If zelle.Interior.ColorIndex = 3 Then
ZähleFarbe = ZähleFarbe + 1
End If
Next zelle
End Function
____
wie muss ich aber diese Funktion ändern / ergänzen, wenn ich gerne weitere Farben auch zählen möchte. ?
ich Habe z.B. auch Zellen mit gelb und blau die ich auch gerne zählen würde.
Danke im Vorraus für Eure unterstützung.
Uli
Anzeige