ich nehmen an, die Daten stehen in den Spalten A und B ab Zeile 1.
Sub Abgleich()
ZA = Range("A65536").End(xlUp).Row
ZB = Range("B65536").End(xlUp).Row
For i = 1 To ZA
x = Application.WorksheetFunction.CountIf(Range("B1:B" & ZB), "=" & Range("A" & i))
If x = 0 Then
MsgBox Range("A" & i)
End If
Next i
End Sub
Gru?
Martin