ich möchte verhindern, das in einer Tabelle in zwei benachbarten Zeilen die gleichen Namen vorkommen. Am besten mit Fehlermeldung nach Eingabe von Enter oder als Prüfung nach Fertigstellung der Tabelle.
Wer kann mir weiterhelfen ?
Gruss Joerg
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Dop As Range
If Intersect(Range("A2:E32"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
For Each Dop In Range("A3:E32")
If Dop.Value = Target.Value And Dop.Row <> Target.Row Then
Target.Select
MsgBox "Diesen Eintrag gibt es schon !"
End If
Next Dop
End Sub