Prevent Eingabe ungültiger Werte mit VBA in Microsoft Excel
Frage:
Eingaben ungültiger Werte in Bereich A1: B6 sind zu verhindern, im Fehlerfall soll ein entsprechendes Meldungsfeld angezeigt werden.
Antwort:
Fügen Sie den folgenden Code in dieses Arbeitsmappenmodul ein.
Private Sub Worksheet_Change(ByVal Target As Range) Dim var As Variant If IsEmpty(Target) Then Exit Sub If Intersect(Target, Range("Calculating")) _ Is Nothing Then Exit Sub var = Application.Sum(Range("Calculating")) If IsError(var) Then Beep MsgBox "Please enter the correct value!" Target.Value = "" End If End Sub