Wie zählt man in Excel Zellen, die einen bestimmten Text und eine bestimmte Schriftfarbe enthalten?
Es ist vielleicht ganz einfach für Sie, die Anzahl der Zellen zu ermitteln, die nur eine Bedingung erfüllen – etwa alle Zellen mit einem bestimmten Text oder einem bestimmten Schriftformat bzw. einer bestimmten Füllfarbe. Doch wissen Sie auch, wie Sie Zellen zählen, die mehrere Bedingungen gleichzeitig erfüllen? Beispielsweise jene, die sowohl einen bestimmten Text als auch ein bestimmtes Schriftformat oder eine bestimmte Füllfarbe aufweisen? Dieser Artikel zeigt Ihnen die Lösung.
Zählen von Zellen mit bestimmtem Text und Füllfarbe mithilfe von VBA-Code
Zählen von Zellen mit bestimmtem Text und Schriftfarbe mithilfe von VBA-Code
Zählen von Zellen mit bestimmtem Text und Füllfarbe mithilfe von VBA-Code
Angenommen, Sie haben eine Tabelle wie im folgenden Screenshot dargestellt. Um die Zellen in Spalte B basierend auf dem Text und der Füllfarbe der Zelle E2 zu zählen, wenden Sie bitte den folgenden VBA-Code an.
1. Drücken Sie die Alt+F11-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, und fügen Sie anschließend den unten stehenden VBA-Code in das Modulfenster ein.
VBA-Code: Zählen von Zellen mit bestimmtem Text und Füllfarbe
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubHinweis: Im Code steht B2:B9 für den Bereich, in dem Sie Zellen zählen möchten; E2 enthält den Text sowie die Füllfarbe, anhand derer die Zellen gezählt werden. Passen Sie diese Angaben einfach Ihren Anforderungen an.
3. Drücken Sie die F5-Taste, um den Code auszuführen. Anschließend erscheint ein Kutools für Excel-Dialogfeld. Wählen Sie eine Zelle aus, in die das Ergebnis eingefügt werden soll, und klicken Sie dann auf die OK-Schaltfläche. Siehe Screenshot:
Das Zählergebnis erscheint sofort in der ausgewählten Zelle.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Zählen von Zellen mit bestimmtem Text und Schriftfarbe mithilfe von VBA-Code
Um Zellen im Bereich B2:B9 basierend auf dem Textinhalt und der Schriftfarbe der Zelle E2 zu zählen, gehen Sie wie folgt vor:
1. Öffnen Sie das Microsoft Visual Basic for Applications-Fenster, indem Sie die Tastenkombination Alt + F11 drücken.
2. Im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul klicken und anschließend den unten stehenden VBA-Code in das Modulfenster kopieren.
VBA-Code: Zählen von Zellen mit bestimmtem Text und Schriftfarbe
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubHinweis: Im Code steht B2:B9 für den Bereich, in dem Sie Zellen zählen möchten, und E2 für das Kriterium, nach dem die Zellen gezählt werden. Sie können diese Angaben ganz einfach an Ihre Bedürfnisse anpassen.
3. Drücken Sie die F5-Taste, um den Code auszuführen. Anschließend erscheint ein Kutools für Excel-Dialogfeld. Bitte auswählen eine Zelle aus, um das Ergebnis dort einzufügen, und klicken Sie dann auf die OK-Schaltfläche. Siehe Screenshot:
Sie erhalten das Ergebnis wie im folgenden Screenshot gezeigt:
Verwandte Artikel:
- Wie zählt man in Excel die Anzahl der Zellen zwischen zwei Werten oder Datumsangaben?
- Wie zählt man Zellen mit einem bestimmten Text innerhalb einer Auswahl in Excel?
- Wie zählt man in Excel, ob eine Zelle Text oder einen Teil eines Textes enthält?
- Wie zählt man die Anzahl bestimmter Wörter in einer Zelle oder einem Zellbereich in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins