Hoe voorkom je lege of ontbrekende invoer in cellen in Excel?

Als je een tabel aan het maken bent in het bereik A1:B10 van een werkblad en ervoor wilt zorgen dat er geen lege cellen achterblijven in dit bereik, kun je een oplossing implementeren die automatisch een prompt weergeeft als een lege invoer wordt gedetecteerd tijdens het bewerken. Volg deze stap-voor-stap handleiding om lege of ontbrekende invoer te voorkomen in het gespecificeerde tabelbereik.

Voorkom lege of ontbrekende invoer in cellen door middel van VBA-code

Voorkom lege of ontbrekende invoer in cellen door middel van VBA-code

Het bereik A1:B10 is aangewezen voor je tabel, waarbij A1 en B1 dienen als de tabelkoppen, zoals te zien is in de onderstaande schermafbeelding. Volg de hieronder beschreven stappen om lege of ontbrekende invoer binnen het bereik A2:B10 te voorkomen terwijl je de tabel invult.

1. Klik met de rechtermuisknop op het tabblad van het werkblad waarin je lege invoer in een bepaald bereik wilt voorkomen, en klik vervolgens op Weergave Code in het rechtsklikmenu.

2. Kopieer en plak de onderstaande VBA-code in het Code-venster in het Microsoft Visual Basic for Applications-venster. Zie schermafbeelding:

VBA-code: Voorkom lege of ontbrekende invoer in een bereik van cellen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

Opmerking: In de VBA-code is A2:B10 het bereik van cellen waarin je geen lege cellen wilt laten. Pas het bereik naar behoefte aan.

Vanaf nu zal er, als je een lege cel overslaat en de volgende cel in het gespecificeerde bereik invult, een dialoogvenster van Kutools voor Excel verschijnen zoals hieronder weergegeven.

Gerelateerde artikelen:

• Hoe voorkom je gegevensinvoer in specifieke cellen van een werkblad in Excel?
• Hoe voorkom je de selectie van meerdere werkbladen in Excel?
• Hoe voorkom je dat een bepaald werkblad wordt verwijderd in Excel?
• Hoe voorkom je dat specifieke celinhoud wordt verwijderd in Excel?