Hallo Brossi,
leider sind meine VBA-Erfahrungen nicht sehr groß.
Hier mein Vorschlag, der evtl. irgenwie verwendet werden kann.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim Wert As Integer
Dim letzte As Integer
If ActiveCell.Value = ActiveCell.Offset(0, -1).Value Then
MsgBox ("Geiche Werte in Zeile ")
End If
End Sub
Gruß Hugo