Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingaben auf Werte zwischen 100 und 200 beschränken

Gruppe

Change

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.

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

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