Hoe te controleren of een cel of een bereik van meerdere cellen leeg is met Excel VBA?

Vandaag leren we hoe u eenvoudig kunt controleren of een of meerdere cellen leeg zijn met Visual Basic for Applications. De inhoud is relevant voor Excel 2019/365, 2016 en eerdere versies van Microsoft Office.

Voorbereidend werk

Voordat u begint met coderen met VBA in Excel, moet u ervoor zorgen dat uw ontwikkeltabblad is ingeschakeld. Als dat niet het geval is, bekijk dan deze korte tutorial .

Controleren of het bereik van Excel-cellen leeg is met VBA

  • Open in Excel uw Visual Basic-omgeving door op Alt+F11 . te drukken
  • Voeg de volgende code in als een procedure in uw werkblad, of als alternatief in een speciale VBA-module.
Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub


  • Ga naar je spreadsheet en selecteer een willekeurig celbereik.
  • Ga terug naar de Visual Basic-editor en zorg ervoor dat de directe viewer (CTRL+G) zichtbaar is, aangezien de methode Debug.Print in de code het resultaat naar dat venster zal sturen.
  • Druk op F5 om uw code uit te voeren.
  • Bekijk de resultaten in het directe venster.

Hoe te controleren of een cel of een bereik van meerdere cellen leeg is met Excel VBA?

  • Alle lege cellen worden geïdentificeerd.

Mogelijke uitbreidingen van de code: U kunt deze code uiteraard naar behoefte uitbreiden als u geïnteresseerd bent om lege waarden over te slaan of gewoon niets te doen als de cellen niet vol zijn. Op dezelfde manier kunt u controleren of het bereik zelf leeg is, dat wil zeggen dat er geen zwarte cellen in zitten.

Niet-lege velden controleren

Op dezelfde manier kunt u de eigenschap IsEmpty gebruiken om te controleren op velden die niet leeg zijn.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Bonus: gebruik de volgende code als u ook lege cellen wilt markeren.

Dim i zo lang Dim c zo lang Dim myRange As Range Dim myCell As Range Stel myRange = Range("A1:A10") in voor elke myCell in myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Er zijn in totaal " & ik & " lege cel(len) uit " & c & "."

Laat een reactie achter

Hoe maak je een eenvoudig leadvolgsysteem in Excel voordat je een CRM-systeem koopt?

Hoe maak je een eenvoudig leadvolgsysteem in Excel voordat je een CRM-systeem koopt?

Bouw een praktische leadtracker in Excel met tabellen, keuzelijsten, opvolgingsdata, filters, voorwaardelijke opmaak en een eenvoudig draaitabeldashboard voordat u investeert in CRM-software.

Eenvoudig afdrukbaar aanwezigheidsformulier voor kinderopvang aan huis: wat bij te houden en waarom.

Eenvoudig afdrukbaar aanwezigheidsformulier voor kinderopvang aan huis: wat bij te houden en waarom.

Gebruik dit eenvoudige, afdrukbare aanwezigheidsformulier voor kinderopvang aan huis om aankomsten, vertrekken, afwezigheden, handtekeningen en vereiste documenten bij te houden.

Eenvoudig inventarisatieformulier voor Excel: een kant-en-klare lay-out voor de detailhandel die snel resultaten oplevert.

Eenvoudig inventarisatieformulier voor Excel: een kant-en-klare lay-out voor de detailhandel die snel resultaten oplevert.

Maak een eenvoudig Excel-bestand voor voorraadtellingen in winkels, met functies voor SKU, locatie, getelde hoeveelheid, afwijking, hertelling en een afdrukbaar overzicht.

Printbaar sjabloon voor een marketingstrategie van één pagina voor lokale bedrijven

Printbaar sjabloon voor een marketingstrategie van één pagina voor lokale bedrijven

Gebruik deze afdrukbare sjabloon voor een marketingstrategie van één pagina om een ​​lokale doelgroep, aanbod, kanaalmix, budget, acties en meetbare doelen te kiezen.

Gratis sjabloon voor een ploegendienstrooster voor werknemers in Excel met automatische urenberekening.

Gratis sjabloon voor een ploegendienstrooster voor werknemers in Excel met automatische urenberekening.

Maak in Excel gratis een dienstrooster voor je medewerkers met begin- en eindtijden, pauzeaftrek, verwerking van nachtdiensten, wekelijkse totalen en een eenvoudige urencalculator.

Beste gratis factureringsapps voor kleine dienstverlenende bedrijven in de VS (2026)

Beste gratis factureringsapps voor kleine dienstverlenende bedrijven in de VS (2026)

Vergelijk de beste gratis factureringsapps voor Amerikaanse dienstverlenende bedrijven in 2026, waaronder Zoho Invoice, Square, Wave, PayPal en Invoice Ninja.

Simple Bi-Weekly Payroll Tracker Excel Template for Small Teams: A Beginner-Friendly Setup

Simple Bi-Weekly Payroll Tracker Excel Template for Small Teams: A Beginner-Friendly Setup

Build a simple bi-weekly payroll tracker in Excel for a small team, with clear sheets, formulas, checks, and practical limits for safe payroll reconciliation.

Hoe exporteer ik Salesforce-contactpersonen naar een overzichtelijk Excel-bestand?

Hoe exporteer ik Salesforce-contactpersonen naar een overzichtelijk Excel-bestand?

Leer hoe u Salesforce-contactpersonen naar een overzichtelijk Excel-bestand exporteert, ID's en tekstvelden behoudt, duplicaten veilig verwijdert en veelvoorkomende CSV-fouten voorkomt.

Printbaar sjabloon voor een kostenraming in de bouwsector in Excel voor kleine aannemers

Printbaar sjabloon voor een kostenraming in de bouwsector in Excel voor kleine aannemers

Maak in Excel een afdrukbare kostenraming voor een bouwproject met praktische kostencategorieën, formules, markeringvelden, afdrukinstellingen en een kant-en-klare checklist voor aannemers.

Afdrukbare checklist voor evenementenplanning & budgetsjabloon voor Word

Afdrukbare checklist voor evenementenplanning & budgetsjabloon voor Word

Gebruik deze afdrukbare checklist voor evenementenplanning en budgetsjabloon in Word om eigenaren, deadlines, kosten, leveranciers en de gereedheid voor de evenementdag bij te houden met duidelijke kwaliteitscontroles.