Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werteprüfung und -meldung bei Zelleingaben

Gruppe

Change

Problem

Bei Eingaben in der mit dem Bereichsnamen "Test" belegten Zelle A1 soll überprüft werden, ob der Wert zwischen 1 und 3 liegt. Wenn ja, soll eine Meldung mit dem Wert erscheinen, wenn nein soll er gelöscht werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("Test")) Is Nothing Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   If Target.Value < 1 Or Target.Value > 3 Then
      Beep
      MsgBox "Nur Eingaben zwischen 1 und 3 erlaubt!"
      Application.EnableEvents = False
      On Error GoTo ERRORHANDLER
      Target.ClearContents
   Else
      MsgBox "Eingabe in Zelle ""Test"": " & Range("Test").Value
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub