Wie kann man ein Meldungsfenster anzeigen lassen, wenn der Zellenwert in Excel gleich „X“ ist?

Das Anzeigen eines Meldungsfensters hilft sehr bei der Suche nach bestimmten Inhalten in einem angegebenen Bereich. Zum Beispiel suchen Sie nach einem Zellenwert, der gleich 50 ist, in einem Bereich A1:C7, und Sie benötigen ein Meldungsfenster, das Ihnen mitteilt, ob der Zellenwert existiert oder nicht. Die folgenden zwei Methoden können Ihnen helfen.

Meldungsfenster anzeigen lassen, wenn der Zellenwert gleich „X“ ist, mit VBA-Code
Meldungsfenster einfach anzeigen lassen, wenn der Zellenwert gleich „X“ ist, mit Kutools für Excel

Meldungsfenster anzeigen lassen, wenn der Zellenwert gleich „X“ ist, mit VBA-Code

Der folgende VBA-Code kann helfen, ein Meldungsfenster zu erstellen, wenn der bestimmte Wert im angegebenen Bereich vorhanden ist. Bitte gehen Sie wie folgt vor.

1. Klicken Sie in dem Arbeitsblatt, in dem Sie Werte im angegebenen Bereich überprüfen möchten, mit der rechten Maustaste auf den Tabellennamen in der Registerkartenleiste und dann auf Ansicht Code im Kontextmenü. Siehe Screenshot:

2. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Meldungsfenster anzeigen lassen, wenn der Zellenwert gleich „X“ ist

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen und zum Arbeitsblatt zurückzukehren.

Ab jetzt erhalten Sie, wenn sich die Zellenwerte im Bereich A1:C7 ändern und ein Zellenwert gleich „50“ ist, ein Meldungsfenster wie im folgenden Screenshot gezeigt.

Außerdem können Sie einfach den Bereich auswählen, um das Meldungsfenster anzuzeigen, falls der Zellenwert existiert.

Hinweise:

Meldungsfenster anzeigen lassen, wenn der Zellenwert gleich „X“ ist, mit Kutools für Excel

Die Funktion Bestimmte Zellen auswählen von Kutools für Excel kann Ihnen auch helfen, dieses Problem zu lösen. Gehen Sie bitte wie folgt vor.

1. Wählen Sie den Bereich aus, in dem Sie prüfen möchten, ob der Zellenwert vorhanden ist, und klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen.

2. Wählen Sie im Dialogfeld Bestimmte Zellen auswählen die Option Zelle im Abschnitt Auswahltyp aus, wählen Sie dann Gleich in der ersten Dropdown-Liste Typ angeben aus und geben Sie den Zellenwert in das nächste Textfeld ein, und klicken Sie abschließend auf die Schaltfläche OK.

Wenn der Zellenwert im angegebenen Bereich vorhanden ist, erhalten Sie das folgende Meldungsfenster. Klicken Sie auf die Schaltfläche OK, wird die Zelle ausgewählt.

Andernfalls erhalten Sie das Meldungsfenster wie im folgenden Screenshot gezeigt.

Verwandte Artikel:

• Wie löscht man eine gesamte Zeile, wenn eine Zelle Null enthält in Excel?
• Wie zählt man Zellen mit bestimmtem Text in einer Auswahl in Excel?