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 Sub3. 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.
Wenn Sie eine kostenlose Testversion (30-Tag) dieses Hilfsprogramms nutzen möchten, klicken Sie bitte hier, um es herunterzuladen, und gehen Sie dann zur Anwendung der Berechnung gemäß den oben genannten Schritten.
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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins