Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe kan ik snel waarden optellen terwijl verborgen kolommen in Excel worden uitgesloten?

Author Sun Last modified

Om waarden op te tellen waarbij verborgen rijen worden uitgesloten, kun je de formule =SUBTOTAL() gebruiken om dit op te lossen, maar hoe zit het met het optellen van waarden waarbij verborgen kolommen worden genegeerd? Dit artikel introduceert trucs om snel waarden in alleen de zichtbare kolommen op te tellen.

Waarden optellen met uitzondering van verborgen kolommen met VBA

Som/gemiddelde/telling uitsluitend voor zichtbare kolommen met Kutools voor Excel good idea3

arrow blue right bubble Waarden optellen met uitzondering van verborgen kolommen met VBA

Hier is een VBA-code die je kan helpen om snel alleen zichtbare kolommen op te tellen.

1. Druk op Alt + F11 toetsen om het Microsoft Visual for Basic Applications-venster weer te geven.

2. Klik op Invoegen > Module en plak onderstaande code in het nieuwe Module-venster.

VBA: Alleen zichtbare kolomwaarden optellen

Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
    Dim xCell As Range
    Dim xRg As Range
    Dim xOutRg As Range
    On Error Resume Next
    Application.Volatile
    Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
    If Not (xRg Is Nothing) Then
        For Each xCell In xRg
            If (xCell.EntireRow.Hidden = False) And _
               (xCell.EntireColumn.Hidden = False) Then
                If xOutRg Is Nothing Then
                    Set xOutRg = xCell
                Else
                    Set xOutRg = Application.Union(xCell, xOutRg)
                End If
            End If
        Next
    End If
    If Not xOutRg Is Nothing Then
        SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
    Else
        SumVisible = 0
    End If
End Function

3. Sla de code op en sluit het venster, ga vervolgens terug naar een lege cel waar je het berekende resultaat wilt plaatsen, en typ deze formule =SomZichtbaar(A1:C9), druk op Enter-toets, en het juiste somresultaat verschijnt.

A screenshot of summing values excluding hidden columns with the SumVisible funtion
A screenshot of the formula result

Tip: In de formule is A1:C9 de cellen die je wilt optellen.

arrow blue right bubble Som/gemiddelde/telling uitsluitend voor zichtbare kolommen met Kutools voor Excel

Misschien ben je niet bekend met VBA-code, maar als je Kutools voor Excel hebt geïnstalleerd, kun je deze taak snel en gemakkelijk oplossen.

Kutools voor Excel biedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden vergroot. Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, waardoor gegevensbeheer moeiteloos wordt. Gedetailleerde informatie over Kutools voor Excel...  Gratis proefversie...

1. Selecteer een lege cel waarin het somresultaat komt, bijvoorbeeld E1, en klik Kutools > Kutools Functies > Statistisch & Wiskunde > SOMZICHTBAAR. Zie screenshot:
A screenshot of selecting the SUMVISIBLE function in Kutools tab on the ribbon

2. In het Functieargumenten dialoogvenster, klik om de cellen die je wilt optellen te selecteren in de Referentie tekstvak, en je kunt het berekende resultaat onderaan bekijken. Zie screenshot:
A screenshot of the Function Arguments dialog for SUMVISIBLE

3. Klik OK, en alleen de zichtbare kolommen zijn opgeteld.
A screenshot of the summed result of visible columns using Kutools

Met Kutools voor Excel, kun je ook tellen of het gemiddelde berekenen in zichtbare cellen/rijen/kolommen. Zie screenshot:
A screenshot showing additional Kutools functions for counting and averaging visible cells

Tip: Je kunt ook direct deze formule typen =SOMZICHTBAAR(A1:C9)/ =TELLINGZICHTBAAR(A1:C9)/ =GEMIDDELDEZICHTBAAR(A1:C9) in de cel om het resultaat te krijgen na installatie van Kutools voor Excel.

Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen

Beste productiviteitstools voor Office

🤖 Kutools AI Assistent: Transformeer data-analyse door: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools functies aanroepen…
Populaire functies: Dubbele waarden markeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies |   Afronden zonder formule...
Super ZOEKEN: Meervoudig-criteria opzoeken | Meervoudige waarde opzoeken | Meervoudig-blad opzoeken | Fuzzy Match....
Geavanceerde keuzelijst: Keuzelijst snel maken | Afhankelijke keuzelijst | Meervoudige selectie in keuzelijst....
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheidsstatus van verborgen kolommen wisselen | Bereik & kolommen vergelijken...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden via lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...)...
Top15 gereedschapssets:12 teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) | 50+ grafiek typen (Gantt-diagram, ...) | 40+ praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) | 19 invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & splitsgereedschappen (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer
Gebruik Kutools in je voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Verbeter 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 kiezen die je het meest nodig hebt...

Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • 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!

Alle Kutools-invoegtoepassingen. Eén installatieprogramma

Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.

Excel Word Outlook Tabs PowerPoint
  • Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
  • Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
  • 30 dagen volledige proef — geen registratie, geen creditcard nodig
  • Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen