Excel zählen wenn schriftfarbe rot

Registrierung: 09.10.2007

Karma:

Hallo,

Ich habe eine Spalte mit Werten z.B. A1-A20.
Nun m�chte ich aber nur die Werte mit einander addieren
deren Textfarbe Rot ist.

Hat jemand eine Idee wie das funktionieren k�nnte?

Danke

lg

Registrierung: 28.10.2002

Karma:

Registrierung: 10.07.2007

Karma:

Hallo jejeone,

gleich eine Gegenfrage vorweg: Ist die Textfarbe von Hand ge�ndert oder mittels einer bedingten Formatierung? Ersteres ist leicht, zweiteres nicht ganz so leicht umzusetzen.

Gr��e
EarlFred

__________________

F�r 15 meiner Beitr�ge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste!
(das entspricht 0,0876% oder 1 Spende pro 1.141 Beitr�ge per 26.07.2022)
Als Dankesch�n der Ukraine helfen

Threadstarter 

Registrierung: 09.10.2007

Karma:

Danke f�r eure schnellen Antworten.

Werde den Tip von Wahlo gleich mal testen.

Die Textfarben werden per Hand festgelegt und NICHT
per Bedingter Formatierung.

Danke

lg

Registrierung: 10.07.2007

Karma:

Hallo jejeone,

ich habe f�r mich mal 2 kleine Funktionen geschrieben, die bei von Hand ge�nderten Farben die Addition erm�glicht. Beide k�nnen als normale Tabellenfunktionen verwendet werden.

(1) =Farbwert(Bezug) ermittelt den Farbwert der verwendeten Schriftfarbe

Code:

Function Farbwert(Zelle As Range) As Integer
'gibt den Farbwert des Bezuges zur�ck
Application.Volatile
    If Zelle.Rows.Count > 1 Or Zelle.Columns.Count > 1 Then
        Farbwert = -1
    Else
        If Zelle.Font.ColorIndex < 0 Then
            Farbwert = 0
        Else
            Farbwert = Zelle.Font.ColorIndex
        End If
    End If
End Function

(2) =Farbsumme(Beug, Farbwert, wahr / falsch)
ermittelt,
- wenn der letzte Parameter "wahr" ist, die Summe der eingef�rbten Zahlen im Bereich
- wenn der letzte Parameter "falsch" ist, die Anzahl der eingef��rbten Zahlen.

Code:

Function Farbsumme(Bereich As Range, Farbe As Integer, Werte As Boolean) As Double
'addiert Werte oder z�hlt die Anzahl von Zellen in Abh�ngigkeit zur Hintergrundfarbe
Application.Volatile
Dim Ergebnis As Double
Dim Zelle As Range

    For Each Zelle In Bereich
        If Zelle.Font.ColorIndex = Farbe Then
            If Werte Then
                'summiert Werte der Zellen
                Ergebnis = Ergebnis + Zelle
            Else
                'summiert Anzahl der Zellen
                Ergebnis = Ergebnis + 1
            End If
        End If
    Next Zelle
Farbsumme = Ergebnis
End Function

Die beiden Funktionen geh�ren in ein allgemeins Modul.

Gr��e
EarlFred

__________________

F�r 15 meiner Beitr�ge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste!
(das entspricht 0,0876% oder 1 Spende pro 1.141 Beitr�ge per 26.07.2022)
Als Dankesch�n der Ukraine helfen

Threadstarter 

Registrierung: 09.10.2007

Karma:

Hallo EarlFred,

Hey das sieht ja voll super aus. Eigentlich genau das was ich
suche. Nur leider hab ich beim verwenden der 2. Funktion ein
Problem. Bekomm das einfach nicht hin. Hab grade erst
begonnen mit Excel programmierungen.

K�nntest du mir ein Beispiel Excel File Online stellen?

Viel Dank

lg

Registrierung: 10.07.2007

Karma:

Hallo jejeone,

na klar, das schaffen wir

Gr��e
EarlFred

__________________

F�r 15 meiner Beitr�ge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste!
(das entspricht 0,0876% oder 1 Spende pro 1.141 Beitr�ge per 26.07.2022)
Als Dankesch�n der Ukraine helfen

Threadstarter 

Registrierung: 09.10.2007

Karma:

Sooo... nun hab ich es kapiert ;o)

Wirklich Super danke.

Ein gro�es Lob an das Forum und die User!!

Danke EarlFred