Gruppe
Ereignis
Problem
Im Bereich A1:B6 soll die Eingabe von Fehlerwerten verhindert und im Fehlerfall eine entsprechende MsgBox angezeigt werden.
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