Gruppe
Allgemein
Problem
Jeder Wert in Spalte A soll mit den Werten in Spalte B verglichen werden. Wird der jeweilige Wert nicht gefunden, ist er in Spalte C einzutragen.
StandardModule: Modul1
Sub VergleichenKopieren()
Dim v As Variant
Dim lRowL As Long, lRow As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL
v = Application.Match(Cells(lRow, 1).Value, Columns(2), 0)
If IsError(v) Then
Cells(lRow, 3).Value = Cells(lRow, 1).Value
End If
Next lRow
End Sub