Hvordan kontrollerer man, om en celle eller en række af flere celler er tom med Excel VBA?

I dag lærer vi om, hvordan du nemt kan kontrollere, om en eller flere celler er tomme ved hjælp af Visual Basic for Applications. Indholdet er relevant for Excel 2019 / 365, 2016 og tidligere versioner af Microsoft Office.

Forberedende arbejde

Før du begynder at kode med VBA i Excel, skal du sikre dig, at din udviklingsfane er aktiveret. Hvis det ikke er tilfældet, så kig venligst på denne korte vejledning .

Kontrollerer, om Excel-celleområdet er tomt med VBA

• I Excel skal du åbne dit Visual Basic-miljø ved at trykke på Alt+F11
• Indsæt følgende kode som en procedure i dit arbejdsark, eller alternativt i et dedikeret 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 dit regneark og vælg et vilkårligt celleområde.
• Gå tilbage til Visual Basic-editoren og sørg for, at den øjeblikkelige fremviser (CTRL+G) er synlig – da Debug.Print-metoden i koden udsender resultatet til det vindue.
• Tryk på F5 for at køre din kode.
• Se resultaterne i det umiddelbare vindue.

• Alle tomme celler vil blive identificeret.

Mulige udvidelser til koden: Du kan naturligvis udvide denne kode efter behov, hvis du er interesseret i at springe tomme værdier over eller bare ikke gøre noget, hvis cellerne ikke er fyldte. På samme måde kan du kontrollere, om selve området er tomt, dvs. - ingen sorte celler er indeholdt.

Kontrollerer ikke tomme felter

På samme måde kan du bruge egenskaben IsEmpty til at tjekke for felter, der ikke er tomme.

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