Ich möchte wenn bei der Eingabe von Werten in Zelle A1 kleiner ist wie B1 eine Messagebox erscheint.Aber nur wenn in B1 ein Wert eingegeben wird.
Wenn andere Zellen angesteuert werden soll keine Messagebox erscheinen.
Danke im vorraus
MfG Matthias
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value > Range("A1").Value Then
MsgBox "Ihre Eingabe in der Zelle B1 sollte kleiner sein" & Chr(10) & _
"als der Inhalt in Zelle A1. Bitte korrigieren", _
48, " Hinweis"
End If
End If
End Sub