AW: vielleicht reicht ja schon ...
21.09.2020 16:26:34
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter der Tabelle
- Code anzeigen
- Code rechts reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MSG As String, Z
If Not Intersect(Target, Range("A2:A200")) Is Nothing Then
For Each Z In Target
If Z = "LOL" Then
If Z.Offset(-1, 0) = "LOL" Then
Z.Offset(-1, 0).Resize(2, 1).Select
MSG = "Doppelt, hintereinander"
ElseIf Z.Offset(1, 0) Then
Z.Resize(2, 1).Select
MSG = "Doppelt, hintereinander"
End If
End If
If MSG "" Then MsgBox MSG
Next Z
End If
End Sub
Wird jetzt LOL eingetragen, wird die vorherigen und nachfolgende Zelle geprüft.
LG UweD