Vergleichen Sie einen Textboxeintrag mit einer Spalte, die Text enthält (alphanumerisch mit '-'), wenn ein Duplikat gefunden wird, dann alert Benutzer

Question

Ich habe eine Spalte, die Text aus alphanumerischen Zeichen mit einem Sonderzeichen '-' wie Kat enthält -1, Amp-2, Xua-09 usw. Ich habe den folgenden Code ausprobiert, aber er scheint keinen Text wie Kat-1 als Duplikat zu erkennen. Kann jemand bitte überprüfen, was mit diesem Code falsch ist.

Private Sub txt_BPName_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
Dim myrange As Range 
Dim match As Boolean 
Dim val 
Set myrange = Worksheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).row) 
match = WorksheetFunction.CountIf(myrange, val) > 0 
If match Then 
MsgBox ("Duplicate") 
Cancel = True 
End If 
End Sub 

Answer 1

Ich denke, Sie sollten sich die Funktion Instr() ansehen. Sie können durch Ihre Spalte iterieren und jede Zelle in der Spalte mit Ihrem Textfeldwert mit einer for-Schleife vergleichen. Das ist wahrscheinlich die einfachste Lösung. Wenn Sie einen Auszug aus Ihrem Spead Sheet veröffentlichen, wäre es einfacher, Ihre Funktion zu bearbeiten.