Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zählen wenn Schriftfarbe rot

Zählen wenn Schriftfarbe rot
07.05.2009 08:07:24
Hicks1
Hallo Leute
Kann ich in einer Spalte mit Zahlen nur die Zahlen, welche ich mit roter Schriftart markiert habe zusammenzählen lassen?
Danke für Eure Antworten
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen wenn Schriftfarbe rot
07.05.2009 08:15:19
Tino
Hallo,
wie entsteht die rote Farbe?
Durch Bedingte Formatierung (wie ist die Bedingung) oder durch normales einfärben der Zelle?
Gruß Tiono
AW: Zählen wenn Schriftfarbe rot
07.05.2009 08:18:05
Hicks1
Durch normales Einfärben.
mit VBA...
07.05.2009 08:29:50
Tino
Hallo,
z. Bsp. so.
kommt in ein Modul
Option Explicit 
 
Function CountFont(Bereich As Range, iIndex As Integer) As Long 
 Application.Volatile 
    For Each Bereich In Bereich 
      If Bereich.Font.ColorIndex = 3 Then 
       CountFont = CountFont + 1 
      End If 
    Next Bereich 
End Function 


In der Zelle als Formel verwenden

 AB
1Test4
2Test 
3Test 
4Test 
5Test 
6Test 
7Test 
8Test 
9Test 
10Test 
11Test 
12Test 
13Test 
14Test 
15Test 

Formeln der Tabelle
ZelleFormel
B1=CountFont(A1:A18;3)

Denke aber daran dies wird nicht automatisch berechnet,
wenn du nachträglich bei einer Zelle die Schriftfarbe änderst.
Nach Änderung einmal die Taste F9 im Excel drücken.
Gruß Tino
Anzeige
AW: mit VBA...
07.05.2009 08:58:04
Hicks1
Hi Tino
Danke für die rasche Antwort.
Es sollte jedoch nicht die Anzahl der roten Zahlen gezählt werden sondern ich möchte die Summe der rot eingefärbten Zahlen haben.
Danke nochmals im voraus.
AW: mit VBA...
07.05.2009 09:17:06
Tino
Hallo,
mach mit diesem Code
Function CountFont(Bereich As Range, iIndex As Integer) As Long
 Application.Volatile
    For Each Bereich In Bereich
      If Bereich.Font.ColorIndex = 3 And IsNumeric(Bereich) Then
       CountFont = CountFont + Bereich
      End If
    Next Bereich
End Function


Gruß Tino

Anzeige
AW: mit VBA...
07.05.2009 10:07:04
Tino
Hallo,
mach es so, habe nur noch der Funktion einen anderen Namen gegeben.
https://www.herber.de/bbs/user/61665.xls
Gruß Tino
Anzeige
AW: mit VBA...
07.05.2009 12:11:45
Hicks1
So einfach wenn man es weiß.
Danke funktioniert super.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zählen und Summieren von Zahlen mit roter Schriftfarbe in Excel


Schritt-für-Schritt-Anleitung

Um Zahlen in Excel zu zählen oder zu summieren, die mit roter Schriftfarbe markiert sind, kannst du eine benutzerdefinierte Funktion in VBA verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Function CountFont(Bereich As Range, iIndex As Integer) As Long
       Application.Volatile
       For Each Zelle In Bereich
           If Zelle.Font.ColorIndex = 3 And IsNumeric(Zelle) Then
               CountFont = CountFont + Zelle
           End If
       Next Zelle
    End Function
  4. Schließe den VBA-Editor, indem du auf Datei und dann auf Schließen und zurück zu Microsoft Excel klickst.

  5. Verwende die Funktion CountFont, um die Summe der roten Zahlen zu berechnen. Zum Beispiel:

    =CountFont(A1:A10; 3)

    Hierbei ist A1:A10 der Bereich, in dem du die roten Zahlen summieren möchtest, und 3 steht für die Schriftfarbe rot.


Häufige Fehler und Lösungen

  • Die Funktion gibt 0 zurück: Stelle sicher, dass die Schriftfarbe der Zahlen tatsächlich auf rot (ColorIndex 3) gesetzt ist.
  • Änderungen werden nicht automatisch aktualisiert: Wenn du die Schriftfarbe änderst, drücke F9, um die Berechnung zu aktualisieren.
  • Falsche Bereichsangabe: Überprüfe, ob der angegebene Bereich korrekt ist und nur die Zellen enthält, die du analysieren möchtest.

Alternative Methoden

Wenn du keine VBA-Funktion verwenden möchtest, kannst du die bedingte Formatierung in Kombination mit Hilfsspalten nutzen. Hierbei wird eine Hilfsspalte erstellt, die die Werte nur dann ausgibt, wenn die Schriftfarbe rot ist. Dies ist jedoch umständlicher und weniger flexibel als die VBA-Methode.


Praktische Beispiele

Angenommen, du hast folgende Werte in Spalte A:

A
10
20
30
40 (rot)
50 (rot)

Um die Summe der rot gefärbten Zahlen in diesem Bereich zu ermitteln, verwende die Formel:

=CountFont(A1:A5; 3)

Das Ergebnis wäre 90, da nur die rot eingefärbten Zahlen (40 und 50) summiert werden.


Tipps für Profis

  • Verwende Kommentare: Dokumentiere deine benutzerdefinierten Funktionen mit Kommentaren im VBA-Editor, um die Verwendung für andere Benutzer zu erleichtern.
  • Automatisierung: Überlege dir, die Funktion in Makros zu integrieren, um die Nutzung zu vereinfachen.
  • Formatierung beachten: Achte darauf, dass die Schriftfarbe der Zelle korrekt ist, da dies die Berechnung beeinflusst.

FAQ: Häufige Fragen

1. Kann ich die Funktion auch für andere Schriftfarben verwenden?
Ja, ändere einfach den ColorIndex im Code auf die gewünschte Farbe.

2. Funktioniert dies in allen Excel-Versionen?
Ja, solange VBA unterstützt wird, funktioniert diese Methode in Excel 2010 und späteren Versionen.

3. Wie kann ich nur die Anzahl der roten Zahlen zählen?
Ändere den Code in der Funktion zu CountFont = CountFont + 1, um die Anzahl anstelle der Summe zu zählen.

4. Was mache ich, wenn ich eine Fehlermeldung bekomme?
Überprüfe den Code auf Tippfehler und stelle sicher, dass der Bereich korrekt angegeben ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige