Gruppe
Ereignis
Problem
Eingaben in Spalte A sollen auf Werte zwischen 100 und 200 beschränkt werden. Die Routine soll auch in XL5 /7 lauffähig sein.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(ActiveCell.Value) Then
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.ClearContents
ElseIf Target.Value < 100 Or Target.Value > 200 Then
Beep
MsgBox "Der Eingabewert liegt außerhalb des " & vbLf & _
"empfohlenen Bereiches!", vbExclamation
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub