Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabekontrolle bei Datumswerten

Gruppe

Change

Problem

Bei Eingaben im Bereich A2:B3 sollen Nicht-Datumswerte abgelehnt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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