Sorry, es wurde das falsche Beispiel hochgeladen.
Nun also ein zweiter Versuch.
Gruß christina verena
https://www.herber.de/bbs/user/130964.xlsx
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lng_zeile As Long
If Target.Column 1 Then Exit Sub
Range("E2:E500").ClearContents
lng_zeile = Cells(1048576, 1).End(xlUp).Row
Range("A2:A" & lng_zeile).Copy Range("E2")
Range("$E$2:$E$" & lng_zeile).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
Zum Einfügen: