Wie kann eine Meldungsbox angezeigt werden, wenn eine Zelle in Excel größer oder kleiner als ein bestimmter Wert ist?

Wenn der Wert einer Zelle größer oder kleiner als der einer anderen Zelle ist, soll in Excel eine Warnmeldung angezeigt werden – wie lässt sich das umsetzen? In diesem Artikel stelle ich Ihnen einige passende Codes zur Lösung dieses Problems vor.

Meldungsbox anzeigen, wenn der Zellwert in einer Spalte größer oder kleiner als eine andere Zelle ist

Meldungsbox anzeigen, wenn der Zellwert einer Zelle größer oder kleiner als eine andere Zelle ist

---

Meldungsbox anzeigen, wenn der Zellwert in einer Spalte größer oder kleiner als eine andere Zelle ist

Angenommen, in Zelle A1 steht die Zahl 100. Sobald in Spalte D eine Zahl eingegeben wird, die größer als der Wert in Zelle A1 ist, soll eine Warnmeldung erscheinen.

Der folgende VBA-Code unterstützt Sie dabei – so geht’s:

1. Wechseln Sie zu dem Arbeitsblatt, das Sie verwenden möchten.

2. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modulfenster ein (siehe Screenshot):

VBA-Code: Meldungsbox anzeigen, wenn der Zellwert in einer Spalte größer oder kleiner als der Wert einer Zelle ist

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Hinweis: Im obigen Code bezieht sich Sheet1 auf das gewünschte Arbeitsblatt; A1 ist der Zellwert, mit dem verglichen werden soll; D:D ist die Spalte, die mit Zelle A1 verglichen werden soll.

3. Schließen Sie anschließend das Codefenster und speichern Sie Ihre Änderungen. Ab sofort erscheint eine Meldungsbox, sobald Sie in Spalte D eine Zahl eingeben, die größer als 100 ist (siehe Screenshot):

---

---

Meldungsbox anzeigen, wenn der Zellwert einer Zelle größer oder kleiner als eine andere Zelle ist

Wenn eine Meldungsbox angezeigt werden soll, sobald ein Zellwert größer oder kleiner als eine andere Zelle ist, verwenden Sie bitte den folgenden Code:

1. Wechseln Sie zu dem Arbeitsblatt, das Sie verwenden möchten.

2. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applicationsden folgenden Code in das leere Modulfenster ein (siehe Screenshot):

VBA-Code: Meldungsbox anzeigen, wenn der Zellwert größer oder kleiner als eine Zelle ist

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Hinweis: Im obigen Code sind A1 und D1 die beiden Zellen, die miteinander verglichen werden sollen.

3. Schließen Sie anschließend das Codefenster und speichern Sie. Sobald Sie einen Wert eingeben, der kleiner als der Wert in Zelle A1 ist, wird eine Meldungsbox wie im folgenden Screenshot angezeigt:

---

Weitere verwandte Artikel zur Popup-Meldungsbox: