Farbige Zellen zählen

06/05/2008 - 14:04 von Rainer | Report spam
Hallo,
ich habe einzelne Zellen farbig hinterlegt und möchte gerne in einer anderen
Zelle ausgeworfen haben, wie viele Zellen mit einer bestimmten Farbe gezeigt
werden.

Basis sit wahrscheinlich die Funktion ZàhlenWenn. Aber wie beschreibe ich
die gewünschte Farbe (aus der Füllfarben-Palette von Excel)?

Sorry, falsch die Frage sehr primitiv ist. Ich habe aber noch keine Antwort
gefunden
 

Lesen sie die antworten

#1 Robert Gelbmann
06/05/2008 - 14:35 | Warnen spam
Hallo Rainer!

"Rainer" schrieb ...
ich habe einzelne Zellen farbig hinterlegt und möchte gerne in einer
anderen
Zelle ausgeworfen haben, wie viele Zellen mit einer bestimmten Farbe
gezeigt
werden.

Basis sit wahrscheinlich die Funktion ZàhlenWenn. Aber wie beschreibe
ich
die gewünschte Farbe (aus der Füllfarben-Palette von Excel)?




Mit Excel-Bordmitteln geht das nicht.
Du könntest dir eine eigene benutzerdefinierte Tabellenfunktion
basteln:

- Extras / Makro / Visual Basic-Editor
- Einfügen / Modul
- Folgenden VBA-Code einfügen:

'snip
' Achtung! Bis einschließlich "Double" folgt *eine* Zeile:
Public Function ZÄHLENWENNFARBE(Bereich As Range, Farbindex As Integer)
As Double
Application.Volatile True

Dim rng As Range

ZÄHLENWENNFARBE = 0
For Each rng In Bereich.Cells
If rng.Interior.ColorIndex = Farbindex Then
ZÄHLENWENNFARBE = ZÄHLENWENNFARBE + 1
End If
Next
End Function
'snip

Beispiel:
Farbindex für Rot = 3 (in der Standardfarbpalette):

=ZÄHLENWENNFARBE(A1:B100;3)


Noch zwei Anmerkungen:

(1) Die Anweisung Volatile sorgt dafür, dass das Formelergebnisse als
"flüchtig" deklariert wird. Excel berechnet das Formelergebnis daher
bei allen möglichen Gelegenheiten, die irgendeine Berechnung auslösen.
(Öffnen der Mappe; Eingaben in irgendeine Zelle, obwohl diese gar
nichts damit zu tun hat usw.)

(2) Die Änderung der Farbe löst *keinerlei* Berechnung aus!!
Daher musst du trotz Punkt (1) bei einer Änderung der Farbe die
Aktualisierung der Formel erzwingen (z.B. mit der Taste F9) um das
korrekte Ergebnis zu erhalten.

In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

The world is quiet here.

Ähnliche fragen