Zellprüfung vor- und rückwärts

Hallo und guten Tag!
Ich bitte euch, mir bei folgendem Problem zu helfen:
In einem Tabellenblatt sind in den Spalten E und F Werte einzutragen. Bei der Eingabe soll nun verhindert werden, dass der Wert in Spalte E größer ist als der in Spalte F. Es soll auch verhindert werden, dass, wenn der "Eingeber" zuerst einen Wert in Spalte F eingibt und dann zurück in Spalte E springt, dort einen größeren Wert eingeben kann.
Ich habe bereits mit SelectionChange- un Change-Ereignis experimentiert. Jedoch bekomme ich die vor- und zurück-Prüfung einfach nicht hin.
Also: Im Ergebnis darf es nicht möglich sein, in die Spalte E einen größereren Wert einzugeben, als in Spalte F.
Habt ihr eine Idee?
Vielen Dank
Gerd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [E:F]) Is Nothing Then If Target.Column = 5 Then 'In Spalte E wurde etwas eingegeben If Target.Value > Target.Offset(, 1) Then Application.Undo Target.Select MsgBox "Wert in Spalte E muss kleiner als Wert in Spalte F sein !" End If ElseIf Target.Column = 6 Then If Target.Value

Hallo Jogy!
Habe gerade folgende Änderung probiert:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
For Each rngZelle In [e3:f123]
If Not Intersect(Target, [E:F]) Is Nothing Then
If Target.Column = 5 And Target.Offset(, 1).Value  "" Then 'In Spalte E wurde etwas  _
eingegeben
If Target.Value > Target.Offset(, 1) Then
Application.Undo
Target.Select
MsgBox "Wert in Spalte E muss kleiner als Wert in Spalte F sein !"
End If
ElseIf Target.Column = 6 And Target.Offset(, -1).Value  "" Then
If Target.Value

Leider komme ich irgendwie in 'ne Endlosschleife und muss mit Strg+Untbr in den Debug-Modus. Hast Du ad-hoc eine Idee?
Gruß
Gerd

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range On Error GoTo errEXIT Application.EnableEvents = False For Each rngZelle In [e3:f123] If Not Intersect(Target, [E:F]) Is Nothing Then If Target.Column = 5 And Target.Offset(, 1).Value "" Then 'In Spalte E wurde etwas _ _ eingegeben If Target.Value > Target.Offset(, 1) Then Application.Undo Target.Select MsgBox "Wert in Spalte E muss kleiner als Wert in Spalte F sein !" End If ElseIf Target.Column = 6 And Target.Offset(, -1).Value "" Then If Target.Value

Beliebteste Forumthreads (12 Monate)

Zellprüfung vor- und rückwärts

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread