Msg-Box in Excel anzeigen, wenn ein bestimmter Begriff in einer Zelle steht
Schritt-für-Schritt-Anleitung
Um eine Messagebox (Msg-Box) in Excel anzuzeigen, wenn in der Zelle O10 ein bestimmter Begriff steht, kannst du ein einfaches VBA-Makro erstellen. Folge diesen Schritten:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Doppelklicke auf das entsprechende Arbeitsblatt im Projektfenster (z.B. "Tabelle1").
-
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "TEST" Then
MsgBox "In Zelle O10 steht TEST"
End If
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Gib in Zelle O10 den Begriff "TEST" ein, um die Msg-Box auszulösen.
Jetzt hast du erfolgreich eine Msg-Box erstellt, die erscheint, wenn in der Zelle ein bestimmter Begriff eingegeben wird.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keine VBA-Makros verwenden möchtest, kannst du die Excel-Funktion WENN nutzen, um eine einfache Infobox (Excel-Infobox erstellen) anzuzeigen:
- In einer anderen Zelle (z.B. P10) kannst du folgende Formel verwenden:
=WENN(O10="TEST"; "In Zelle O10 steht TEST"; "")
- Diese Formel zeigt in Zelle P10 den Text an, wenn in O10 "TEST" eingegeben wird.
Praktische Beispiele
Hier sind einige Beispiele, wie du die Msg-Box anpassen kannst:
-
Mit verschiedenen Begriffen:
If UCase(Target.Value) = "TEST" Or UCase(Target.Value) = "BEISPIEL" Then
MsgBox "In Zelle O10 steht " & Target.Value
End If
-
Mit unterschiedlichen Feldern:
Wenn du die Msg-Box für eine andere Zelle (z.B. P10) anzeigen möchtest, ändere den Code entsprechend:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "TEST" Then
MsgBox "In Zelle P10 steht TEST"
End If
End Sub
Tipps für Profis
FAQ: Häufige Fragen
1. Wie kann ich die Msg-Box anpassen?
Du kannst den Text in der Msg-Box nach Belieben anpassen, indem du den Inhalt in der MsgBox-Funktion änderst.
2. Funktioniert dies in jeder Excel-Version?
Ja, die beschriebenen Methoden sollten in den gängigen Excel-Versionen funktionieren, die VBA unterstützen (z.B. Excel 2010, 2013, 2016, 2019, und Excel für Microsoft 365).