Hoe lege of ontbrekende vermeldingen in cellen in Excel te voorkomen?

Stel dat u een tabel maakt in het bereik A1: B10 van een werkblad en u wilt voorkomen dat een lege cel in dit tabelbereik verschijnt, hoe kunt u dit bereiken? Dit artikel introduceert een methode om automatisch een promptvenster te laten verschijnen als er tijdens het bewerken een leeg item in een bepaald tabelbereik verschijnt. Volg de methode stap voor stap in het artikel.

Voorkom lege of ontbrekende vermeldingen in cellen door VBA-code te gebruiken

---

Voorkom lege of ontbrekende vermeldingen in cellen door VBA-code te gebruiken

A1: B10 is het bereik waarin u een tabel moet maken, en A1, B1 bevatten de kopteksten van de tabel zoals onderstaand screenshot. Ga als volgt te werk om te voorkomen dat er blanco of ontbrekende items in het bereik A2: B10 verschijnen tijdens het maken van de tabel.

1. Klik met de rechtermuisknop op de bladtab in het werkblad waarvoor u geen blanco items in een bepaald bereik toestaat en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het codevenster. Zie screenshot:

VBA-code: voorkom lege of ontbrekende vermeldingen in een celbereik

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 cellenbereik waarin u geen lege cel wilt laten staan. Wijzig het bereik naar behoefte.

Als u vanaf nu een lege cel overslaat en de volgende cel in het opgegeven bereik direct invult, krijgt u een Kutools for Excel dialoogvenster zoals hieronder afgebeeld.

---

Gerelateerde artikelen:

• Hoe gegevensinvoer in specifieke cellen van een werkblad in Excel voorkomen?
• Hoe te voorkomen dat meerdere werkbladen in Excel worden geselecteerd?
• Hoe voorkom je dat een bepaald werkblad wordt verwijderd in Excel?
• Hoe voorkom je dat specifieke celinhoud in Excel wordt verwijderd?