Hoe te tellen / optellen doorgehaalde cellen in Excel?
In Excel is het gebruikelijk om doorhalingsopmaak toe te passen op bepaalde cellen om gegevens te markeren als verouderd, irrelevant of ongeldig. Deze visuele aanwijzing kan gegevensbeheer aanzienlijk verbeteren en helpen je te focussen op de informatie die ertoe doet tijdens analyses. Echter, wanneer het gaat om berekeningen uit te voeren – zoals tellen of optellen – wil je mogelijk de resultaten voor doorgehaalde cellen scheiden van die zonder doorhaling. Het begrijpen hoe je met deze scenario's omgaat, kan je workflow stroomlijnen en leiden tot nauwkeurigere inzichten. Dit artikel biedt verschillende praktische methoden om cellen met of zonder doorhalingsopmaak te tellen en op te tellen in Excel, gebruikmakend van aanpasbare VBA-functies die flexibiliteit bieden voor verschillende gegevensbeheerbehoeften.
Tellen van doorgehaalde cellen met VBA in Excel
Tellen zonder doorgehaalde cellen met VBA in Excel
Som exclusief doorgehaalde cellen met VBA in Excel
Tellen of optellen van cellen met doorhaling met behulp van Kutools voor Excel
Tellen van doorgehaalde cellen in Excel
Als je het totaal aantal cellen moet bepalen dat is opgemaakt met doorhaling in een specifiek bereik, kan dit niet direct worden bereikt met ingebouwde functies van Excel, omdat er geen formule is die tekstopmaak zoals doorhaling herkent. Daarom wordt het gebruik van een door de gebruiker gedefinieerde functie (UDF) in VBA een praktische oplossing. Deze aanpak is vooral nuttig bij het beheren van takenlijsten, voorraadupdates of elk scenario waarin doorhaling wordt gebruikt om voltooide, ongeldige of verouderde datapunten aan te duiden.
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het VBA-venster op Invoegen > Module om een nieuwe module te maken en plak vervolgens de volgende code in het Modulevenster.
VBA-code: Tellen van doorgehaalde cellen
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. Nadat je de code hebt ingevoerd, sla je je werkboek op (om de macro te behouden), sluit dan de VBA-editor en ga terug naar je werkblad. Voer in elke lege cel waar je het resultaat wilt laten verschijnen de volgende formule in (bijvoorbeeld om doorgehaalde cellen in het bereik A2:B14 te controleren): =CountStrike(A2:B14)
Tip: Je kunt A2:B14 wijzigen in elk ander bereik dat je wilt controleren.
4. Druk op de Enter-toets om de formule uit te voeren en Excel zal onmiddellijk het aantal doorgehaalde cellen in het opgegeven bereik weergeven. Dit stelt je in staat om efficiënt voortgang bij te houden of verouderde items te verwijderen indien nodig. Zie screenshot:
Waarschuwing: Om ervoor te zorgen dat deze VBA-code beschikbaar blijft voor toekomstig gebruik, moet je het bestand opslaan in .xlsm-formaat (Excel Macro-Enabled Workbook).
Tellen zonder doorgehaalde cellen in Excel
Er zijn gevallen waarin je mogelijk alleen het aantal cellen wilt weten dat geen doorhalingsopmaak heeft in een bepaald bereik. Bijvoorbeeld, in projectvolgsystemen of verkoopdata wil je vaak alleen de actieve/geldige items tellen (d.w.z., die zonder doorhaling) voor verdere bewerkingen. Excel’s standaard AANTAL of AANTAL.A functies negeren tekstopmaak, dus biedt een aangepaste VBA-oplossing precieze controle over dergelijke behoeften.
1. Druk op ALT + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Ga naar Invoegen > Module om een nieuwe codemodule toe te voegen. Plak de volgende code in dat modulevenster.
VBA-code: Tellen zonder doorgehaalde cellen
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. Sla je macro-werkboek op, ga terug naar het werkblad en voer in een lege cel de formule in (bijvoorbeeld voor A2:B14): =countnostrike(A2:B14) Druk vervolgens op Enter om het resultaat te krijgen. Excel telt alleen die cellen binnen het geselecteerde bereik die geen doorhalingsopmaak hebben.
Opmerking: In bovenstaand voorbeeld is A2:B14 het bereik van cellen dat wordt geëvalueerd. Pas de bereikreferentie aan naar gelang nodig voor je werkblad. Let ook op dat samengevoegde cellen of speciale opmaak soms de resultaten kunnen beïnvloeden – controleer dubbel of je bereik alleen de bedoelde cellen bevat.
Som exclusief doorgehaalde cellen in Excel
Wanneer je werkt met numerieke gegevens waarbij bepaalde items niet langer actief zijn of genegeerd moeten worden (d.w.z., doorhalingsopmaak hebben), is het vaak essentieel om alleen de geldige getallen op te tellen. Dit is gebruikelijk in budgetbladen, voorraadbeheer of taakvolging, waar doorgehaalde items verouderde of voltooide items vertegenwoordigen die uit de totalen moeten worden uitgesloten. Omdat Excel's ingebouwde SOM-functie niet onderscheid maakt tussen opgemaakte en niet-opgemaakte cellen, is een door de gebruiker gedefinieerde VBA-functie nodig voor deze operatie.
1. Gebruik ALT + F11 om de Microsoft Visual Basic for Applications-editor te openen.
2. Klik op Invoegen > Module om een module toe te voegen en plak de onderstaande code in dat modulevenster.
VBA-code: Som exclusief doorgehaalde cellen
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. Sla op en sluit de VBA-editor. Kies in je doelwerkblad een lege cel en voer de volgende formule in (bijvoorbeeld voor B2:B14): =excstrike(B2:B14) Druk op Enter en Excel zal alleen de cellen in je opgegeven bereik optellen die geen doorhalingsopmaak hebben, waardoor direct een som wordt weergegeven die verouderde waarden uitsluit.
Opmerking: Pas B2:B14 aan naar je daadwerkelijke databereik. Deze functie negeert doorgehaalde cellen, ongeacht hun waarde. Als je onverwachte resultaten ervaart, zorg er dan voor dat alle cellen numerieke invoer hebben en de juiste opmaak.
Praktische tip: Als je de som moet vernieuwen na het wijzigen van de doorhalingsstatus van een cel, herbereken het werkblad door op F9 te drukken.
Tellen of optellen van cellen met doorhaling met behulp van Kutools voor Excel
Als je alleen de cellen wilt tellen of optellen die een doorhalingsopmaak hebben, biedt Excel geen ingebouwde manier om dit te doen – maar Kutools voor Excel maakt het gemakkelijk met zijn Speciaal filter.
1. Selecteer de kolom
Klik op de kolom die de cellen met doorhalingsopmaak bevat.
2. Open het Speciaal filter
Ga naar het tabblad Kutools Plus en klik op Speciaal filter > Filter doorhaling.
3. Bevestig het filter
Een dialoogvenster verschijnt waarin wordt getoond hoeveel cellen voldoen aan de voorwaarde. Klik op OK om door te gaan.
4. Bekijk de resultaten
De cellen met een doorhaling zijn nu gefilterd en zichtbaar. Selecteer het gefilterde bereik – je zult onmiddellijk de Som, Gemiddelde en Aantal zien in de statusbalk van Excel onderaan.
✨ Waarom Kutools gebruiken?
Kutools voor Excel biedt meer dan 300 krachtige en gebruiksvriendelijke functies zoals deze – helpend je tijd besparen en productiviteit verhogen zonder complexe formules of VBA-code te schrijven.
Of je nu filtert op opmaak, gegevens opruimt, bladen combineert of batch-bewerkingen uitvoert, Kutools vereenvoudigt je werk in seconden.
👉 Probeer Kutools voor Excel gratis gedurende 30 dagen en ontdek wat je hebt gemist!
Gerelateerde artikelen:
Hoe som / aantal vetgedrukte getallen in een bereik van cellen in Excel?
Hoe te tellen en optellen van cellen op basis van achtergrondkleur in Excel?
Hoe te tellen / optellen van cellen op basis van lettertypekleuren in Excel?
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!