Bitte im Beitrag bleiben, sonst geht die Übersicht verloren.
Gruß Hajo
Sub Vergleich()
Dim Bereich1 As Range, ZielSheet As Worksheet
Dim intZeilen As Integer
Dim Zelle As Range
Dim i As Integer
Set Bereich1 = Worksheets("Firma").Range("A2:A" & Worksheets("Firma").Range("A2").End(xlDown).Row)
intZeilen = Worksheets("Ansprechpartner").Range("A3").End(xlDown).Row
Set ZielSheet = Worksheets("Ansprechpartner")
For Each Zelle In Bereich1
For i = 1 To intZeilen
If ZielSheet.Cells(i, 1) = Zelle Then Exit For
Next
If i > intZeilen Then
ZielSheet.Cells(i, 1).Value = Zelle
intZeilen = intZeilen + 1
End If
Next
ZielSheet.Activate
Range("A3:A" & intZeilen).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False
' , Orientation:=xlTopToBottom
End Sub