Wie kann man feststellen, ob ein Array in einer Spalte enthalten ist?

Question

Ich bin auf der Suche nach einem VBA-Code zum Herausfinden, ob ein Array von Strings in den Zellen einer Spalte enthalten ist (nicht vollständig übereinstimmt). Ich habe eine Liste von gefälschten E-Mails in einem Blatt gespeichert und in einem anderen Blatt habe ich die Liste der E-Mails, die ich überprüfen möchte. Wenn eine E-Mail aus der ersten Liste in der zweiten Spalte gefunden wird, muss die Zeile gelb eingefärbt sein. Hier ist das, was ich habe:

Dim list As String, c As Range, count As Long, total As Long 
count = 1 
total = Range("I" & Rows.count).End(xlUp).Row 
For ix = 1 To total 
list = Worksheets("Helper").Range("A" & counter).Value 
k = "a" & count 
    For Each c In Worksheets("JP").Range(k) 
     c.EntireRow.Interior.Color = 255 
    Next c 
End If 
End If 
count = count + 1 
Next ix 

Answer 1

Um zu überprüfen, ob ein String in einem anderen enthalten ist, würden Sie tun so mit

If InStr(1, str, substr, vbTextCompare) > 0) Then 
    ' put logic for when substr is within str 
End If 

, die eine positive Zahl der substr zurückkehren wird überall in str gefunden.

Für Ihre spezifische Anwendung würde ich am Debuggen Ihrer Schleife arbeiten, es sieht so aus, als ob Sie auf dem richtigen Weg sind