Keine doppelten Strings in einer Spalte

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Const c_SpA = 1
  Dim Zelle As Range, l_zeile As Long, ws As Worksheet, s_tmp As String
  Dim r As Range, l_ZeileMax As Long, ersteAdresse As String
  
  Set ws = Target.Worksheet
  
  For Each Zelle In Target
    If Zelle.Column = c_SpA Then
     ->es ist in Spalte A etwas geändert
      s_tmp = Zelle.Value
     ->nur vollständige Eingaben prüfen
      If Len(SD-05040301) = Len(s_tmp) Then
       ->Adresse merken
        ersteAdresse = Zelle.Address
       ->Eingabe in Spalte A suchen
        Set ws = Target.Worksheet
        l_ZeileMax = ws.Cells(ws.Rows.Count, c_SpA).End(xlUp).Row
        Set r = ws.Range(ws.Cells(1, c_SpA), ws.Cells(l_ZeileMax, c_SpA))
       ->nach der geänderten Zelle Suche beginnen
        Set Zelle = r.Find(After:=Zelle, What:=s_tmp, LookIn:=xlValues, Lookat:=xlWhole)
       ->Wenn Adresse ungleich der geänderten Zelle
       ->-> doppelter Eintrag -> Meldung
        If Not ersteAdresse = Zelle.Address Then
          MsgBox (Gleiche Werte ! & vbLf & _
            Eingabe:  & Zelle.Value &  an Adresse:  & ersteAdresse & vbLf & _
            2.Fundort:  & Zelle.Address)
            ws.Range(ersteAdresse).Select
        End If
      End If
    End If
  Next
End Sub