Wie zähle / summiere ich durchgestrichene Zellen in Excel?
In Excel formatieren wir für einige Zellen immer ein Durchgestrichen, das angibt, dass die Zellenwerte nutzlos oder ungültig sind, damit wir die Daten genauer analysieren können. In diesem Artikel werde ich darüber sprechen, wie einige Berechnungen im Bereich mit diesen durchgestrichenen Zellen in Excel durchgeführt werden.
Durchgestrichene Zellen in Excel zählen
Zählen Sie ohne durchgestrichene Zellen in Excel
Summe ausgestrichene Zellen in Excel ausschließen
Durchgestrichene Zellen in Excel zählen
Wenn Sie wissen möchten, wie viele Zellen mit einem durchgestrichenen Format in einem Bereich vorhanden sind, können Sie eine benutzerdefinierte Funktion erstellen. Führen Sie die folgenden Schritte aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Durchgestrichene Zellen zählen
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein = CountStrike (A2: B14) zu einer leeren Zelle siehe Screenshot:
4. Drücken Sie dann Enter Schlüssel, und alle durchgestrichenen Zellen wurden gezählt. Siehe Screenshot:
Zählen Sie ohne durchgestrichene Zellen in Excel
Manchmal möchten Sie jedoch möglicherweise nur die Anzahl der normalen Zellen zählen, die die durchgestrichenen Zellen ausschließen. Der folgende Code kann Ihnen helfen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Zählen ohne durchgestrichene Zellen
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Speichern und schließen Sie diesen Code, kehren Sie zu Ihrem Arbeitsblatt zurück und geben Sie diese Formel ein = countnostrike (A2: B14) in eine leere Zelle und drücken Sie Enter Schlüssel, dann erhalten Sie das Ergebnis, das Sie benötigen.
Note: In den obigen Formeln, A2: B14 ist der Bereich, in dem Sie die Formeln anwenden möchten.
Summe ausgestrichene Zellen in Excel ausschließen
Da die durchgestrichenen Zellen nicht verwendet werden, möchte ich hier nur die normalen Zahlen ohne die durchgestrichenen Zahlen summieren. Um diese Aufgabe zu lösen, benötigen Sie außerdem eine benutzerdefinierte Funktion.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Summe schließt durchgestrichene Zellen aus
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Speichern und schließen Sie diesen Code, kehren Sie zu Ihrem Arbeitsblatt zurück und geben Sie diese Formel ein = Excstrike (B2: B14) in eine leere Zelle und drücken Sie Enter Wenn Sie die Taste drücken, erhalten Sie die Summe aller Zahlen ohne die durchgestrichenen Zellen. Siehe Screenshot:
Note: In den obigen Formeln, B2: B14 ist der Bereich, in dem Sie Zellen ohne durchgestrichenes Format summieren möchten.
In Verbindung stehende Artikel:
Wie summiere / zähle ich fette Zahlen in einer Reihe von Zellen in Excel?
Wie zähle und summiere ich Zellen basierend auf der Hintergrundfarbe in Excel?
Wie zähle / summiere ich Zellen basierend auf den Schriftfarben 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
