Direkt zum Inhalt

Wie wird ein Meldungsfeld angezeigt, wenn die Zelle in Excel größer oder kleiner als ein bestimmter Wert ist?

Wenn eine Zelle größer oder kleiner als eine andere Zelle ist, muss ein Meldungsfeld angezeigt werden, um in Excel eine Warnung zu erhalten. Wie löse ich dieses Problem in Excel? In diesem Artikel werde ich über einige Codes für den Umgang damit sprechen.

Öffnen Sie ein Meldungsfeld, wenn der Zellenwert in einer Spalte größer oder kleiner als eine andere Zelle ist

Öffnen Sie ein Meldungsfeld, wenn der Zellenwert in einer Zelle größer oder kleiner als in einer anderen Zelle ist


Öffnen Sie ein Meldungsfeld, wenn der Zellenwert in einer Spalte größer oder kleiner als eine andere Zelle ist

Angenommen, ich habe eine bestimmte Nummer 100 in Zelle A1. Wenn die in Spalte D eingegebene Nummer in Zelle A100 größer als 1 ist, sollte ein Meldungsfeld angezeigt werden, um den Benutzer daran zu erinnern.

Der folgende VBA-Code kann Ihnen dabei helfen, den Vorgang abzuschließen. Führen Sie die folgenden Schritte aus:

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

2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modulfenster ein, siehe Screenshot:

VBA-Code: Öffnen Sie ein Meldungsfeld, wenn der Zellenwert in einer Spalte größer oder kleiner als eine 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

Note: Im obigen Code, Sheet1 ist Ihr Arbeitsblatt, das Sie verwenden möchten; A1 ist der Zellenwert, mit dem Sie vergleichen möchten; D: D ist die Spalte, die Sie mit Zelle A1 vergleichen möchten.

3. Speichern und schließen Sie dann das Codefenster. Von nun an wird ein Meldungsfeld angezeigt, wenn Sie in Spalte D eine Zahl eingeben, die größer als 100 ist (siehe Abbildung):


Öffnen Sie ein Meldungsfeld, wenn der Zellenwert in einer Zelle größer oder kleiner als in einer anderen Zelle ist

Wenn Sie möchten, dass ein Meldungsfeld angezeigt wird, wenn ein Zellenwert größer oder kleiner als eine andere Zelle ist, wenden Sie den folgenden Code an:

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

2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modulfenster ein, siehe Screenshot:

VBA-Code: Öffnen Sie ein Meldungsfeld, wenn der Zellenwert 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

Note: Im obigen Code, A1 und D1 sind die beiden Zellen, mit denen Sie vergleichen möchten.

3. Speichern und schließen Sie dann das Codefenster. Wenn Sie einen Wert eingeben, der kleiner als der Wert in Zelle A1 ist, wird ein Meldungsfeld wie im folgenden Screenshot angezeigt:


Weitere relative Artikel im Popup-Meldungsfeld:

  • Popup-Meldungsfeld beim Öffnen einer Excel-Datei erstellen
  • In bestimmten Fällen möchten Sie möglicherweise, dass immer ein Meldungsfeld angezeigt wird, das Sie daran erinnert, was Sie zuerst tun müssen, wenn Sie eine bestimmte Arbeitsmappe öffnen. Dies kann Ihnen dabei helfen, sich daran zu erinnern, das Wichtigste in Ihrer täglichen Arbeit zu tun. In diesem Artikel werde ich darüber sprechen, wie beim Öffnen einer Excel-Datei ein Popup-Meldungsfeld erstellt wird.
  • Erstellen Sie ein Ja-Nein-Meldungsfeld, bevor Sie ein Makro in Excel ausführen
  • In Excel können Sie ein Makro direkt auslösen, indem Sie die Taste F5 drücken oder im Fenster Microsoft Visual Basic für Applikationen auf die Schaltfläche Ausführen klicken. Manchmal möchten Sie jedoch möglicherweise ein Meldungsfeld erstellen, in dem der Benutzer gefragt wird, ob er das Makro ausführen möchte. Wenn ja, führen Sie den Code weiter aus. Wenn nein, beenden Sie die Ausführung des Codes. In diesem Artikel werde ich darüber sprechen, wie Sie ein Ja-Nein-Meldungsfeld erstellen, bevor Sie ein Makro in Excel ausführen.

  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
kte tab 201905
  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations