VBA 2 Spalten vergleichen und markieren
26.07.2021 15:06:20
Lisa
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
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