Hoe voorkomt u lege of ontbrekende invoer in Excel-cellen?
Als u een tabel maakt in het bereik A1:B10 van een werkblad en wilt voorkomen dat er lege cellen achterblijven in dit bereik, kunt u een oplossing instellen die automatisch een waarschuwing geeft zodra tijdens het bewerken een lege invoer wordt gedetecteerd. Volg deze stapsgewijze handleiding om lege of ontbrekende invoer in het opgegeven tabelbereik te voorkomen.
Voorkom lege of ontbrekende invoer in cellen met behulp van VBA-code
Voorkom lege of ontbrekende invoer in cellen met behulp van VBA-code
Het bereik A1:B10 is bestemd voor uw tabel, met A1 en B1 als tabelkoppen, zoals in de onderstaande schermafbeelding wordt weergegeven. Volg de beschreven stappen om lege of ontbrekende invoer binnen het bereik A2:B10 te voorkomen tijdens het invullen van uw tabel.
1. Klik met de rechtermuisknop op het bladtabblad van het werkblad waarin u lege invoer in een bepaald bereik wilt voorkomen en selecteer vervolgens Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het codovenster. 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 celbereik waarin u geen lege cellen wilt laten staan. Pas het bereik aan naar wens.
Vanaf nu verschijnt er, zodra u een lege cel overslaat en de volgende cel in het beperkte bereik invult, een Kutools voor Excel-dialoogvenster zoals hieronder wordt weergegeven.
Gerelateerde artikelen:
- Hoe voorkomt u dat gegevens worden ingevoerd in bepaalde cellen van een Excel-werkblad?
- Hoe voorkomt u dat in Excel meerdere werkbladen tegelijkertijd worden geselecteerd?
- Hoe voorkomt u dat een specifiek werkblad in Excel wordt verwijderd?
- Hoe voorkomt u dat de inhoud van specifieke cellen in Excel per ongeluk wordt verwijderd?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins