ich habe eine Frage, bei der ich nicht mehr weiterkomme.
Ich habe in Spalte A2 bis A++ Texte stehen, von denen ein Bruchteil irgendwo in Spalte B2 bis B++ vorkommen kann.
Bsp:
In A2 steht "Hallo dies ist ein Test. Er wird versendet an Test@test.de"
Irgendwo in Spalte B steht in einer Zelle z. B. "Test@Test.de"
Wenn der Wert aus Spalte B genau so auch in Spalte A zu finden ist, dann soll die Zelle daneben in Spalte C mit einem "X" markiert werden.
Hier mein Ansatz:
Option Explicit
Public Sub MailSuchen()
Dim lngRow As Long
Dim avntTemp As Variant, vntItem As Variant
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
avntTemp = Split(Cells(lngRow, 1).Value)
For Each vntItem In avntTemp
If InStr(1, Cells(lngRow, 2).Value, vntItem, vbTextCompare) > 0 Then
Range("C2") = "x"
'Range("C2" & Rows.Count).End(xlUp).Row = "X"
End If
Next
Next
End Sub
Mit dem Code habe zwei Probleme:1. Ich bekomme das dynamische schreiben des "X" nicht hin.
2. Es wird auch ein "X" gesetzt wenn nur ein Teil des gesuchten Textes aus B in A vorkommt.
Heißt: Steht in Spalte B "st@Test.de" wird ein trotzdem "X" gesetzt, dies soll aber nur passieren wenn dort exakt "Test@Test.de" steht
Hat jemand eine Idee, ich beiße mir schon seit Stunden die Zähne an dem Problem aus.
Vielen Dank und viele Grüße
Lisa