Bei Eingabe eines bestimmten Wertes MessageBox
23.11.2023 13:54:04
Thomas
Wenn in einer der Zellen von A1 bis A10 irgendwo der Wert "ADM" eingegeben wird, dann soll eine Messagebox mit einer Meldung aufpoppen.
Es funktioniert bisher nur für eine einzelne bestimmte Zelle, z.B. A1 - (siehe Code) - jedoch hätte ich gerne die Zellen A1:A10 definiert. Kann mir einer der Experten bitte helfen ? Danke.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing And Range("A1") = "ADM" Then
MsgBox "Das Kürzel ADM darf nur nach Rücksprache verwendet werden !"
End If
End Sub