Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabe von Fehlerwerten verhindern

Gruppe

Change

Problem

Im Bereich A1:B6 soll die Eingabe von Fehlerwerten verhindert und im Fehlerfall eine entsprechende MsgBox angezeigt werden.

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

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("Berechnungen")) _
      Is Nothing Then Exit Sub
   var = Application.Sum(Range("Berechnungen"))
   If IsError(var) Then
      Beep
      MsgBox "Bitte korrekte Werte eingeben!"
      Target.Value = ""
   End If
End Sub