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 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 Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen