Hvordan sjekke om en celle eller et område med flere celler er tomt med Excel VBA?

I dag skal vi lære om hvordan du enkelt kan sjekke om én eller flere celler er tomme ved å bruke Visual Basic for Applications. Innholdet er relevant for Excel 2019 / 365, 2016 og tidligere versjoner av Microsoft Office.

Forberedende arbeid

Før du starter koding med VBA i Excel, må du sørge for at utviklingsfanen er aktivert. Hvis det ikke er tilfelle, vennligst se på denne korte opplæringen .

Sjekker om Excel-celleområdet er tomt med VBA

  • I Excel åpner du Visual Basic-miljøet ved å trykke Alt+F11
  • Sett inn følgende kode som en prosedyre i arbeidsarket ditt, eller alternativt i en dedikert VBA-modul.
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


  • Gå til regnearket og velg et vilkårlig celleområde.
  • Gå tilbake til Visual Basic-editoren og sørg for at Immediate Viewer (CTRL+G) er synlig – ettersom Debug.Print-metoden i koden vil sende resultatet til det vinduet.
  • Trykk F5 for å kjøre koden.
  • Se på resultatene i det umiddelbare vinduet.

Hvordan sjekke om en celle eller et område med flere celler er tomt med Excel VBA?

  • Alle tomme celler vil bli identifisert.

Mulige utvidelser til koden: Du kan åpenbart utvide denne koden etter behov i tilfelle du er interessert i å hoppe over tomme verdier eller bare gjøre ingenting i tilfelle cellene ikke er fulle. På samme måte kan du sjekke om selve området er tomt, dvs. at det ikke finnes svarte celler.

Kontrollerer ikke tomme felt

På samme måte kan du bruke IsEmpty-egenskapen for å se etter felt som ikke er tomme.

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

Bonus: Bruk følgende kode hvis du vil markere tomme celler også.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Every 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 _ "Det er totalt " & jeg & " tomme celle(r) ut av " & c & "."

Legg igjen en kommentar

Slik løser du «Lyd fungerer ikke ved skjermopptak i PowerPoint»

Slik løser du «Lyd fungerer ikke ved skjermopptak i PowerPoint»

Har PowerPoint-skjermopptaket video, men ingen lyd? Sjekk lydkontrollen, Windows mikrofontilgang, inndatainnstillinger, avspillingskompatibilitet, oppdateringer og reparasjon.

Gratis mal for ansattes skiftplan i Excel med timeregnskapskalkulator

Gratis mal for ansattes skiftplan i Excel med timeregnskapskalkulator

Lag en gratis Excel-skiftplan for ansatte med automatisk timeregistrering, håndtering av nattskift, fratrekk for pauser, ukentlige summer, flagg for overtid og en utskriftsvennlig teamvisning.

Gratis fakturamal for småbedrifter i Excel med automatisk beregning av omsetningsavgift

Gratis fakturamal for småbedrifter i Excel med automatisk beregning av omsetningsavgift

Lag en gratis Excel-fakturamal som automatisk beregner avgiftspliktig beløp, omsetningsavgift og totaler. Sammenlign oppsett med én sats, oppslagslister og linjebasert avgift, og lær når Excel ikke lenger er nok.

Slik konverterer du PDF til redigerbart Word uten å miste formatering

Slik konverterer du PDF til redigerbart Word uten å miste formatering

Konverter PDF til redigerbart Word med minst mulig tap av formatering ved hjelp av Word eller Acrobat. Lær når direkte konvertering fungerer, når OCR er nødvendig, og hvordan du reparerer tabeller, fonter og sideskift.

Utskrivbar mal for byggeprosjekt-tilbud i Excel for små entreprenører

Utskrivbar mal for byggeprosjekt-tilbud i Excel for små entreprenører

Lag et utskrivbart tilbud for byggeprosjekter i Excel med omfang, materialer, arbeidskraft, indirekte kostnader, reserve, påslag, skatt og utskriftsklare summer – pluss formler og feil å unngå.

Slik lager du et enkelt leadsporingssystem i Excel før du kjøper et CRM

Slik lager du et enkelt leadsporingssystem i Excel før du kjøper et CRM

Bygg en praktisk leadtracker i Excel med tabell, nedtrekksmenyer for faser, oppfølgingsdatoer, forsinkelsesflagg, filtre og en enkel pipelineoversikt – pluss tegn på at det er på tide å gå over til et CRM.

Utskrivbar mal for daglig tidsblokkering i PDF-format for hjemmekontor-profesjonelle: En nybegynnervennlig guide

Utskrivbar mal for daglig tidsblokkering i PDF-format for hjemmekontor-profesjonelle: En nybegynnervennlig guide

Lær hvordan du bruker en utskrivbar mal for daglig tidsblokkering i PDF-format for hjemmekontor: planlegg fokusblokker, møter, pauser, buffere, og skriv den ut riktig.

HubSpot Free CRM vs Zoho CRM for enslige eiendomsmeglere: Hvilken er best i 2026?

HubSpot Free CRM vs Zoho CRM for enslige eiendomsmeglere: Hvilken er best i 2026?

Sammenlign HubSpot Free CRM og Zoho CRM for enslige eiendomsmeglere, inkludert kontakter, e-post, pipeline, tilpasning, automatisering, mobilbruk og oppgraderingskompromisser.

Slik fikser du et Word-dokument som åpnes som skrivebeskyttet på Mac

Slik fikser du et Word-dokument som åpnes som skrivebeskyttet på Mac

Fiks et Word-dokument som åpnes som skrivebeskyttet på Mac ved å sjekke juli 2026 Office-oppdateringsproblemet, Word-redigeringsmodus, dokumentbeskyttelse, Finder-tillatelser, OneDrive-tilgang og filplassering.

Enkel mal for lageropptelling i Excel for detaljbutikker: Felter, formler og arbeidsflyt for telling

Enkel mal for lageropptelling i Excel for detaljbutikker: Felter, formler og arbeidsflyt for telling

Lag et enkelt lageropptellingsark i Excel for detaljhandel med praktiske kolonner, variansformler, tellekontroller, utskriftstips og en rask revisjonssjekkliste.