Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl Zellen zählen deren Schriftfarbe Grün ist

Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 12:51:00
Frank
Hallo Liebe Forengemeinde und ein gesundes und erfolgreiches Jahr 2013,
ich habe über folgenden Code

Function CountFont(Bereich As Range, iIndex As Integer) As Long
Application.Volatile
For Each Bereich In Bereich
If Bereich.Font.ColorIndex = 4 Then
CountFont = CountFont + 1
End If
Next Bereich
End Function
und Formel

=(CountFont(A1:A215;4))
die Anzahl der Einträge ermittel die Grün sind.
Leider funktioniert dies nicht mit verbundenen Zellen.
Kann mir jemand helfen?
Vielen Dank schon mal.
Gruß
Frank

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:10:52
Matze,Matthias
Hallo Frank
Schau mal diesen Beitrag an: https://www.herber.de/forum/archiv/1056to1060/1059965_Addieren_von_farbig_hinterlegten_zellen.html
Oder hier ohne VBA :
http://www.excelformeln.de/formeln.html?welcher=432
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function
Matze

Anzeige
AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:14:24
Frank
Hallo Matze,
das Problem ist, dass es so nur mit nicht verbundenen zellen funktioniert.
Gruß Frank

AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:18:11
Matze,Matthias
Hallo Frank.
zeig doch mal deine Musterdatei und warum verbunden?
Eventuell kann der Verbund ja gelöst werden.

AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:31:58
Frank
Hallo Matze,
ich versuche es mal zu erklären.
Jede Zeile enthält ein finding aus einem Audit.
Mehrere Zeilen(findings) pro Audit sind möglich.
In Spalte A sind die verbundenen Zellen(je nach Anzahl von findings pro Audit)
und werden durchnummeriert. Jenachdem welchen Status diese Audit nun hat ist der Eintrag in der Spalte A entweder Grün oder Schwarz.
Gruß
Frank
P.S. eine beispielhafte Datei habe ich mal angehängt. https://www.herber.de/bbs/user/83251.xlsx
Vielleicht wird es dann klarer. Die orig. Datei kann ich nicht anhängen

Anzeige
AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:32:19
Rudi
Hallo,
Function CountFont(Bereich As Range, iIndex As Integer) As Long
Dim Zelle As Range, sngTmp As Single
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = iIndex Then
sngTmp = sngTmp + 1 / Zelle.MergeArea.Count
End If
Next Zelle
CountFont = sngTmp
End Function

Gruß
Rudi

Anzeige
AW: Anzahl Zellen zählen deren Schriftfarbe Grün ist
04.01.2013 13:34:56
Frank
Hallo Rudi,
Du bist Spitze.
Tausend Dank
Gruß
Frank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen zählen, deren Schriftfarbe Grün ist


Schritt-für-Schritt-Anleitung

Um die Anzahl der Zellen in Excel zu zählen, deren Schriftfarbe Grün ist, kannst du die folgende benutzerdefinierte Funktion in VBA verwenden:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Function CountFont(Bereich As Range, iIndex As Integer) As Long
       Dim Zelle As Range
       Application.Volatile
       For Each Zelle In Bereich
           If Zelle.Font.ColorIndex = iIndex Then
               CountFont = CountFont + 1 / Zelle.MergeArea.Count
           End If
       Next Zelle
    End Function
  4. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Arbeitsblatt.

  5. Verwende die Funktion in einer Zelle, um die Anzahl der grünen Schriftzüge zu zählen, indem du die folgende Formel eingibst:

    =CountFont(A1:A215; 4)

Hierbei steht A1:A215 für den Bereich, den du überprüfen möchtest, und 4 entspricht der Farbindexnummer für Grün.


Häufige Fehler und Lösungen

  • Problem: Die Funktion zählt keine verbundenen Zellen.

    • Lösung: Stelle sicher, dass der Code die MergeArea.Count berücksichtigt. Das Beispiel oben tut dies bereits.
  • Problem: Die Funktion liefert falsche Ergebnisse.

    • Lösung: Überprüfe, ob die Zellen tatsächlich die richtige Schriftfarbe haben. Es kann hilfreich sein, die Schriftfarbe manuell zu prüfen.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die bedingte Formatierung nutzen und ZÄHLENWENN-Funktionen kombinieren. Allerdings ist es wichtig zu wissen, dass diese Methode nicht direkt die Schriftfarbe zählt:

  1. Markiere die Zellen, die du überprüfen möchtest.
  2. Verwende die bedingte Formatierung, um die Zellen zu formatieren, die grün sind.
  3. Verwende eine ZÄHLENWENN-Formel, um die Anzahl dieser Zellen zu ermitteln.

Beachte, dass dies nicht die Schriftfarbe selbst zählt, sondern nur die Zellen, die du manuell als grün markierst.


Praktische Beispiele

  • Beispiel 1: Wenn du die Anzahl der grünen Zellen im Bereich B1:B100 zählen möchtest, benutze:

    =CountFont(B1:B100; 4)
  • Beispiel 2: Um die Anzahl der roten Schriftzüge zu zählen, ändere einfach die Farbindexnummer in der Funktion:

    =CountFont(A1:A215; 3)  ' 3 entspricht Rot

Tipps für Profis

  • Nutze die Application.Volatile-Anweisung in VBA, um sicherzustellen, dass die Funktion bei jeder Änderung in deinem Arbeitsblatt aktualisiert wird.
  • Wenn du oft mit farbigen Zellen arbeitest, speichere deine benutzerdefinierten Funktionen in einem persönlichen Makroarbeitsbuch, um sie in allen Excel-Dateien zu verwenden.
  • Experimentiere mit verschiedenen Farbindexnummern, um andere Schriftfarben zu zählen, wie z.B. für Rot oder Blau.

FAQ: Häufige Fragen

1. Kann ich die Funktion auch für andere Farben verwenden?
Ja, du kannst den iIndex-Parameter auf andere Farbindexnummern ändern, um verschiedene Schriftfarben zu zählen.

2. Funktioniert das in allen Excel-Versionen?
Die VBA-Funktion sollte in den meisten modernen Excel-Versionen funktionieren, jedoch kann die Unterstützung für Makros in älteren Versionen variieren.

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