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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen