Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie man durchgestrichene Zellen in Excel zählt / summiert?

In Excel formatieren wir immer die Durchstreichung für einige Zellen, die anzeigen, dass die Zellenwerte nutzlos oder ungültig sind, sodass 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.

Count durchstreicht Zellen in Excel

Zählen ohne durchgestrichene Zellen in Excel

Summe schließt durchgestrichene Zellen in Excel aus


Pfeil blaue rechte Blase Count durchstreicht Zellen in Excel


Wenn Sie wissen möchten, wie viele Zellen mit durchgestrichenem Format in einem Bereich vorhanden sind, können Sie eine benutzerdefinierte Funktion erstellen. Führen Sie dazu 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 Einsatz > Modul, und fügen Sie den folgenden Code in die Modulfenster.

VBA-Code: Anzahl durchgestrichener Zellen

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 dann diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein = CountStrike (A2: B14) in eine leere Zelle, siehe Screenshot:

doc-count-strike-1

4. Dann drücken Weiter Schlüssel, und alle durchgestrichenen Zellen wurden gezählt. Siehe Screenshot:

doc-count-strike-1


Pfeil blaue rechte Blase Zählen ohne durchgestrichene Zellen in Excel

Aber manchmal möchten Sie vielleicht 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 Einsatz > Modul, und fügen Sie den folgenden Code in die 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. Dann speichern und schließen Sie diesen Code, gehen Sie zurück zu Ihrem Arbeitsblatt, geben Sie diese Formel ein = Zählimpuls (A2: B14) in eine leere Zelle und drücken Sie Weiter Schlüssel, dann erhalten Sie das Ergebnis, das Sie brauchen.

doc-count-strike-1

Text: In obigen Formeln, A2: B14 ist der Bereich, in dem Sie die Formeln anwenden möchten.


Pfeil blaue rechte Blase Summe schließt durchgestrichene Zellen in Excel aus

Da die durchgestrichenen Zellen nicht verwendet werden, möchte ich hier nur die normalen Zahlen ohne die durchgestrichenen Zahlen zusammenfassen. Um diese Aufgabe zu lösen, benötigen Sie auch 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 Einsatz > Modul, und fügen Sie den folgenden Code in die 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. Dann speichern und schließen Sie diesen Code, gehen Sie zurück zu Ihrem Arbeitsblatt, geben Sie diese Formel ein = excstrike (B2: B14) in eine leere Zelle und drücken Sie Weiter Schlüssel, und Sie erhalten die Summe aller Zahlen ohne die durchgestrichenen Zellen. Siehe Screenshot:

doc-count-strike-1

Text: In obigen Formeln, B2: B14 ist der Bereich, in dem Zellen ohne Durchstreichungsformat zusammengefasst werden sollen.


In Verbindung stehende Artikel:

Wie fette Zahlen in einem Zellbereich in Excel summieren / zählen?

Wie zähle und summiere ich Zellen anhand der Hintergrundfarbe in Excel?

Wie zähle / summiere ich Zellen anhand der Schriftfarben in Excel?


Empfohlene Produktivitätswerkzeuge für Excel

Registerkarte Tab 201905

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
  • To post as a guest, your comment is unpublished.
    Ari · 2 years ago
    This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
    • To post as a guest, your comment is unpublished.
      Mark Ayoub · 2 years ago
      [quote name="Ari"]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?[/quote]

      ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points:

      [b]
      Public Function ExcStrike(pWorkRng As Range) As Double
      'Update 20161107_IITCSglobal.com
      Application.Volatile
      Dim pRng As Range
      Dim xOut As Double
      xOut = 0
      For Each pRng In pWorkRng
      If Not pRng.Font.Strikethrough Then
      xOut = xOut + pRng.Value
      End If
      Next
      ExcStrike = xOut
      End Function
      [/b]