Vergleich
Peter
brauche mal wieder Hilfe
Ich möche Spalte A und B vergleichen.
In B sind mehr Werte eingetragen als in A
Habe bei meiner Rechereche dieses Makro gefunden, welches mir die identischen Werte nach Spalte D schreibt. Brauche dies aber genau umgekehrt.
wie schreibe ich dieses Makro um oder gibt es eine andere Lösung?
Danke vorab
Gruß Peter Knierim
Sub Vergleichen()
Dim var As Variant
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
var = Application.Match(Cells(iRow, 1), Columns(2), 0)
If Not IsError(var) Then
iRowT = iRowT + 1
Cells(iRowT, 4) = Cells(iRow, 1)
End If
iRow = iRow + 1
Loop
End Sub