Public loAlt As Long
Public loNeu As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) = "" Then Exit Sub
'If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
loNeu = Target.Value
If loNeu
Zum Testen habe ich den Bereich auf dem sich das auswirkt auf A1:B10 angelegt, entsprechend anpassen.Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
wertnew = Target.Value
Application.Undo
wertold = Target.Value
'Prüfen, ob eingegebener Wert größer ist als der bisherige Wert
If wertnew > wertold Then Target.Value = wertnew
Application.EnableEvents = True
End Sub
Public loAlt As Long
Public loNeu As Long
Private Sub Worksheet_Change(ByVal Target As Range)
'If Intersect(Target, Range("A1:B10")) = "" Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
loNeu = Target.Value
If loNeu
Gruß Werner