Hi Zusammen
Der Code von Werti ist super aber er sollte den folgenden Ablauf nicht machen.
Wenn ich in einer Zelle den Wert von G1 überschritten habe und ich diesen überschrittenen Wert belasse und auf die nächste Zelle gehe und und dort ein kleiner Wert eingebe bringt er mir trotzdem die MsgBox da der Code auch die obere Zelle wieder berechnet obwohl ich ja diese belassen will und die Nachricht ja schon erhalten habe.
Daher steht in der MsgBox Betrag bitte übertragen und nicht Du musst übertragen.
Set rngBereich = Union(Range("G1"), Range("G8:G40"), Range("G58:G94"))
If Not Intersect(Target, rngBereich) Is Nothing Then
If IsNumeric(Range("G1")) Then
If Application.Max(Range("G8:G40"), Range("G58:G94")) > [G1] Then
MsgBox"Der eingegebene Betrag überschreitet die Obergrenze des Tolerable Errors, Bitte Betrag in Spalte - wesentlich - übertragen"
End If
End If
End If
end sub
Wie kann ich dies korrigieren.
Es sollte nur Zelle für Zelle neu bestimmt werden.
Danke für Eure Hilfe
Gruss
Ulli