Wie lässt sich eine Meldungsbox anzeigen, wenn der Zellenwert gleich „X“ ist?
Das Anzeigen einer Meldungsbox ist sehr hilfreich, wenn bestimmte Inhalte in Begrenzter Bereich gesucht werden. Beispielsweise suchen Sie nach einem Zellwert, der 50 entspricht, innerhalb des Bereichs A1:C7, und benötigen eine Meldungsbox, die Ihnen anzeigt, ob der Zellwert vorhanden ist oder nicht. Die folgenden beiden Methoden können Ihnen dabei helfen.
Meldungsbox anzeigen, wenn die Zelle Wert ist gleich „X“ mit VBA-Code
Einfaches Anzeigen einer Meldungsbox, wenn die Zelle Wert ist gleich „X“ mit Kutools für Excel
Meldungsbox anzeigen, wenn die Zelle Wert ist gleich „X“ mit VBA-Code
Der folgende VBA-Code hilft Ihnen, eine Meldungsbox anzuzeigen, sobald der gesuchte Wert innerhalb des festgelegten Bereichs vorhanden ist. Gehen Sie dazu wie folgt vor:
1. Klicken Sie im Arbeitsblatt, in dem Sie Werte in einem begrenzten Bereich überprüfen möchten, mit der rechten Maustaste auf den Tab-Namen in der Blattregisterkarte und wählen Sie anschließend Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Fügen Sie im Fenster Microsoft Visual Basic für Applikationen den folgenden VBA-Code in das Code-Fenster ein.
VBA-Code: Meldungsbox anzeigen, wenn die Zelle Wert ist gleich „X“
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 Sub3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen und zum Arbeitsblatt zurückzukehren.
Ab sofort wird eine Meldungsbox wie im folgenden Screenshot angezeigt, sobald sich Zellwerte im Bereich A1:C7 ändern und eine Zelle den Wert „50“ enthält.
Außerdem können Sie ganz einfach den gewünschten Bereich auswählen, um eine Meldungsbox anzuzeigen – sofern ein Zellwert vorhanden ist.
Hinweise:
Meldungsbox anzeigen, wenn die Zelle Wert ist gleich „X“ mit Kutools für Excel
Das Hilfsprogramm Bestimmte Zellen auswählen von Kutools für Excel kann Ihnen ebenfalls bei der Lösung dieses Problems helfen. Gehen Sie wie folgt vor.
1. Wählen Sie den Bereich aus, in dem Sie prüfen möchten, ob ein Zellwert vorhanden ist, und klicken Sie anschließend 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 anschließend in der ersten Dropdown-Liste Typ angeben die Option Gleich aus, geben Sie den gewünschten Zellwert in das folgende Textfeld ein und klicken Sie abschließend auf die Schaltfläche OK.
Wenn der Zellwert im begrenzten Bereich vorhanden ist, erscheint die folgende Meldungsbox. Klicken Sie auf die Schaltfläche OK, um die entsprechende Zelle auszuwählen.
Andernfalls erscheint die im folgenden Screenshot gezeigte Meldungsbox.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Verwandte Artikel:
- Wie löscht man eine ganze Zeile in Excel, wenn die Zelle den Wert null enthält?
- Wie zählt man Zellen mit einem bestimmten Text innerhalb der Auswahl in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins