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
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
A | B | |
1 | Test | 4 |
2 | Test | |
3 | Test | |
4 | Test | |
5 | Test | |
6 | Test | |
7 | Test | |
8 | Test | |
9 | Test | |
10 | Test | |
11 | Test | |
12 | Test | |
13 | Test | |
14 | Test | |
15 | Test |
Formeln der Tabelle | ||||
|
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
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:
Öffne Excel und drücke ALT + F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen
und dann auf Modul
, um ein neues Modul zu erstellen.
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
Schließe den VBA-Editor, indem du auf Datei
und dann auf Schließen und zurück zu Microsoft Excel
klickst.
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.
F9
, um die Berechnung zu aktualisieren.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.
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.
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen