AW: Eintragung eines Wertes in ein Formelfeld
02.07.2018 14:35:37
ChrisL
Und ich hätte gerne mehr Urlaub und doppelten Zahltag...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
If Range("B4") > WorksheetFunction.VLookup(Range("B3"), Range("B13:D19"), 3, 0) Then
MsgBox "Grenzwert: " & WorksheetFunction.VLookup(Range("B3"), Range("B13:D19"), 3, 0)
On Error Resume Next
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub