Gruppe
Ereignis
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.
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