Gruppe
Ereignis
Problem
Bei Eingaben im Bereich A2:B3 sollen Nicht-Datumswerte abgelehnt werden.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B3")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not IsDate(Target.Value) Then
MsgBox "Bitte ein gültiges Datum eingeben!"
Target.ClearContents
End If
On Error GoTo ERRORHANDLER
ERRORHANDLER:
Application.EnableEvents = True
End Sub