Office: (Office 2007) Nur Zählen wenn Textfarbe Rot

jejeone · 24. März 2008

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

:)

Wahlo · 26. März 2008

http://www.excelformeln.de/formeln.html?welcher=432

Das müsste es sein.

EarlFred · 26. März 2008

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

jejeone · 26. März 2008

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

EarlFred · 26. März 2008

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die beiden Funktionen gehören in ein allgemeins Modul.

Grüße
EarlFred

jejeone · 27. März 2008

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

EarlFred · 27. März 2008

Hallo jejeone,

na klar, das schaffen wir *wink.gif*

Grüße
EarlFred

jejeone · 27. März 2008

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

Wirklich Super danke.

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

Danke EarlFred

Office: (Office 2007) Nur Zählen wenn Textfarbe Rot

Nur Zählen wenn Textfarbe Rot

Nur Zählen wenn Textfarbe Rot

Nur Zählen wenn Textfarbe Rot

Nur Zählen wenn Textfarbe Rot

Nur Zählen wenn Textfarbe Rot - Similar Threads - Zählen Textfarbe Rot

Filtern nach größter Zahl

1050 Zahlen mit einem Wort wiedergeben

Summieren farbiger Zahlen anhand des Farbcodes ohne VBA

DATEDIF Ergebnis

Zählen von Zeichen in Zelle

Zufällige Zahl wiedergeben mit Schaltfläche/ Button

Zähle Einträge die in einen Uhrzeitbereich liegen