Wie verhindert man leere oder fehlende Einträge in Zellen in Excel?

Wenn Sie eine Tabelle im Bereich A1:B10 eines Arbeitsblatts erstellen und sicherstellen möchten, dass keine leeren Zellen in diesem Bereich verbleiben, können Sie eine Lösung implementieren, die automatisch eine Eingabeaufforderung anzeigt, wenn während der Bearbeitung ein leerer Eintrag erkannt wird. Befolgen Sie diese Schritt-für-Schritt-Anleitung, um leere oder fehlende Einträge im angegebenen Tabellenbereich zu verhindern.

Verhindern Sie leere oder fehlende Einträge in Zellen mithilfe von VBA-Code

Verhindern Sie leere oder fehlende Einträge in Zellen mithilfe von VBA-Code

Der Bereich A1:B10 ist für Ihre Tabelle vorgesehen, wobei A1 und B1 als Tabellenüberschriften dienen, wie im folgenden Screenshot gezeigt. Befolgen Sie die beschriebenen Schritte, um leere oder fehlende Einträge im Bereich A2:B10 beim Ausfüllen der Tabelle zu verhindern.

1. Klicken Sie in dem Arbeitsblatt, in dem Sie leere Einträge in einem bestimmten Bereich verhindern möchten, mit der rechten Maustaste auf die Registerkarte des Blatts und dann auf Code anzeigen im Kontextmenü.

2. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den unten stehenden VBA-Code und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:

VBA-Code: Verhindern Sie leere oder fehlende Einträge in einem Zellbereich

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

Hinweis: Im VBA-Code ist A2:B10 der Zellbereich, in dem Sie keine leeren Zellen hinterlassen möchten. Ändern Sie den Bereich nach Bedarf.

Ab jetzt wird, wenn Sie eine leere Zelle überspringen und die nächste Zelle im angegebenen Bereich ausfüllen, ein Dialogfeld von Kutools für Excel wie unten gezeigt erscheinen.

Verwandte Artikel:

• Wie verhindert man die Dateneingabe in bestimmte Zellen eines Arbeitsblatts in Excel?
• Wie verhindert man die Auswahl mehrerer Arbeitsblätter in Excel?
• Wie verhindert man das Löschen eines bestimmten Arbeitsblatts in Excel?
• Wie verhindert man das Löschen bestimmter Zelleninhalte in Excel?