Genaue Stringprüfung
Günter
habe folgende Frage:
In einem vorhandenen Makro werden 2 Spalten abgeglichen. Text in diesem
Falle. Bei der Ausgabe wird beim Abgleich nicht die gewünschten genau identischen
Werte/Texte herausgeschrieben, sondern auch die, welche nur einen Teilstring
enthalten.
Was müßte im anhnängenden Makro passieren, damit ein genauer Abgleich stattfindet?
Gruß
Sub SuchenMarkieren_Wörter()
Dim col As New Collection
Dim iRowS As Integer, iRow As Integer, iRowT As Integer
Dim arrG
Dim arrL
Dim Zaehler As Integer
Dim Zeile As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
iRowS = 1
Do Until IsEmpty(col(1).Cells(iRowS, 1))
If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value) Then
iRowT = iRowT + 1
col(2).Range(col(2).Cells(iRowT, 1), col(2).Cells(iRowT, 2)).Value = _
col(1).Range(col(1).Cells(iRowS, 1), col(1).Cells(iRowS, 2)).Value
col(1).Cells(iRowS, 1).Interior.ColorIndex = 6
End If
iRowS = iRowS + 1
Loop
iRow = iRow + 1
Loop
MsgBox "Fertig!!"
End Sub