Hoe tel of som je doorgehaalde cellen in Excel?
In Excel is het gebruikelijk om bepaalde cellen een doorgehaalde opmaak te geven om gegevens als verouderd, irrelevant of ongeldig te markeren. Deze visuele aanwijzing verbetert het gegevensbeheer aanzienlijk en helpt u tijdens analyses om zich te richten op de relevante informatie. Wanneer u echter berekeningen wilt uitvoeren—zoals tellen of optellen—kunt u er vaak voor kiezen om de resultaten voor doorgehaalde cellen los te zien van die zonder doorhaling. Het leren omgaan met dergelijke scenario’s stroomlijnt uw werkstroom en leidt tot nauwkeurigere inzichten. Dit artikel biedt diverse praktische methoden om cellen met of zonder doorgehaalde opmaak in Excel te tellen of op te tellen, met behulp van aanpasbare VBA-functies die flexibiliteit bieden voor al uw gegevensbeheerbehoeften.
Tel doorgehaalde cellen met VBA in Excel
Tel cellen zonder doorhaling met VBA in Excel
Som exclusief doorgehaalde cellen met VBA in Excel
Tel of som cellen met doorhaling met behulp van Kutools voor Excel
Tel doorgehaalde cellen in Excel
Als u het totale aantal cellen wilt bepalen dat is opgemaakt met doorhaling in een specifiek bereik, kunt u hiervoor niet rechtstreeks de ingebouwde functies van Excel gebruiken — er bestaat immers geen standaardformule die tekstopmaak zoals doorhaling herkent. In dat geval biedt een door de gebruiker gedefinieerde functie (UDF) in VBA een praktische oplossing. Deze aanpak is vooral handig bij het beheren van takenlijsten, voorraadupdates of andere scenario’s waarin doorhaling wordt ingezet om voltooide, ongeldige of verouderde gegevenspunten duidelijk te markeren.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications 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: Tel 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 u de code hebt ingevoerd, slaat u uw werkmap op (om de macro te behouden), sluit u de VBA-editor en keert u terug naar uw werkblad. Voer in een lege cel — waar u het resultaat wilt weergeven — de volgende formule in (bijvoorbeeld om doorgehaalde cellen te tellen in het bereik)A2:B14):=CountStrike(A2:B14)
Tip: U kunt A2:B14 vervangen door elk ander bereik dat u wilt controleren.
4. Druk op de toets Enter om de formule uit te voeren; Excel toont dan onmiddellijk het aantal doorgehaalde cellen in het beperkte bereik. Zo houdt u efficiënt uw voortgang bij of verwijdert u verouderde items indien nodig. Zie schermafbeelding:
Waarschuwing: Zorg ervoor dat u het bestand opslaat in de .xlsm-indeling (Excel-werkmap met ingeschakelde macro’s), zodat deze VBA-code ook in de toekomst beschikbaar blijft.
Tel cellen zonder doorhaling in Excel
Er zijn situaties waarin u alleen het aantal cellen wilt tellen dat geen doorgehaalde opmaak heeft in een bepaald bereik. Denk bijvoorbeeld aan projectvolgtabellen of verkoopgegevens: vaak wilt u dan alleen de actieve of geldige items tellen—dus die zonder doorhaling—voor verdere bewerkingen. De standaardfuncties AANTAL en AANTALARG van Excel negeren tekstopmaak, waardoor een op maat gemaakte VBA-oplossing u nauwkeurige controle biedt over dit soort behoeften.
1. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Ga naar Invoegen > Module om een nieuwe codemodule toe te voegen. Plak de volgende code in dat modulevenster.
VBA-code: Tel cellen zonder doorhaling
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 uw werkmap met macro’s op, keer terug naar het werkblad en voer in een lege cel de volgende formule in (bijvoorbeeld voor)A2:B14):=countnostrike(A2:B14). Druk daarna op Enter om het resultaat te krijgen. Excel telt dan alleen de cellen binnen het opgegeven bereik die geen doorgehaalde opmaak hebben.
Opmerking: In het bovenstaande voorbeeld is A2:B14 het bereik van cellen dat wordt geëvalueerd. Pas de bereikverwijzing naar behoefte aan voor uw werkblad. Let er ook op dat samengevoegde cellen of speciale opmaak soms de resultaten kunnen beïnvloeden—controleer dubbel of uw bereik alleen de bedoelde cellen bevat.
Som exclusief doorgehaalde cellen in Excel
Bij numerieke gegevens waarvan bepaalde items niet langer actief zijn of genegeerd moeten worden — en daarom doorgehaalde opmaak hebben — is het vaak essentieel om alleen de geldige getallen op te tellen. Dit komt veel voor in budgetbladen, voorraadbeheer of taakvolging, waarbij doorgehaalde items verouderde of voltooide onderdelen vertegenwoordigen die uit de totalen moeten worden uitgesloten. Omdat de ingebouwde SOM-functie van Excel geen onderscheid maakt tussen doorgehaalde en niet-doorgehaalde cellen, is een door de gebruiker gedefinieerde VBA-functie vereist voor deze bewerking.
1. Gebruik ALT + F11 om de editor Microsoft Visual Basic for Applications 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. Sluit de VBA-editor. Selecteer in uw doelwerkblad een lege cel en voer de volgende formule in (bijvoorbeeld voor)B2:B14):=excstrike(B2:B14). Druk op Enter en Excel telt alleen de cellen in uw opgegeven bereik op die geen doorgehaalde opmaak hebben—zodat u direct de som krijgt, exclusief verouderde waarden.
Opmerking: Pas B2:B14 aan naar uw werkelijke gegevensbereik. Deze functie negeert doorgehaalde cellen, ongeacht hun waarde. Als u onverwachte resultaten krijgt, controleer dan of alle cellen numerieke waarden bevatten en de juiste opmaak hebben.
Praktische tip: Als u de sommatie wilt vernieuwen nadat u de doorhaalstatus van een cel hebt gewijzigd, herrekent u het werkblad door op F9 te drukken.
Tel of som cellen met doorhaling met behulp van Kutools voor Excel
Als u alleen de cellen met een doorgehaalde opmaak wilt tellen of optellen, biedt Excel hiervoor geen ingebouwde mogelijkheid — maar Kutools voor Excel maakt dit eenvoudig met de functie Speciaal filter.
1. Selecteer de kolom
Klik op de kolom met cellen die doorgehaalde opmaak hebben.
2. Open het speciale filter
Ga naar het tabblad KUTOOLS PLUS en klik vervolgens op Speciaal filter > Filter cellen met doorstreepte opmaak.
3. Bevestig het filter
Er verschijnt een dialoogvenster met het aantal cellen dat aan de voorwaarde voldoet. Klik op OK om door te gaan.
4. Bekijk de resultaten
De cellen met een doorhaling zijn nu gefilterd en zichtbaar. Selecteer het filterbereik—u ziet dan direct de som, het gemiddelde en het aantal in de Statusbalk onderaan in Excel.
✨Waarom Kutools gebruiken?
Kutools voor Excel biedt meer dan 300 krachtige en gebruiksvriendelijke functies zoals deze—zodat u tijd bespaart en uw productiviteit verhoogt, zonder complexe formules of VBA-code te hoeven schrijven.
Of u nu filtert op opmaak, gegevens opschoneert, werkbladen combineert of batchbewerkingen uitvoert – met Kutools vereenvoudigt u uw werk in enkele seconden.
Probeer Kutools voor Excel 30 dagen gratis en ontdek wat u tot nu toe heeft gemist!
Gerelateerde artikelen:
Hoe telt of sommeert u vetgedrukte getallen in een bereik van cellen in Excel?
Hoe telt en somt u cellen op basis van hun achtergrondkleur in Excel?
Hoe telt of somt u cellen op basis van de letterkleur in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins