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?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
