vielen dank
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