ich verstehe nicht wo der Fehler liegt.
Danke!
Gruß
Mirel
https://www.herber.de/bbs/user/162052.xlsm
.Range(.Cells(1, 1), .Cells(lol, lSp)).RemoveDuplicates Columns:=lSp, Header:=xlYes
Range(.Cells(1, lSp), .Cells(lol, lSp)).RemoveDuplicates Columns:=Array(1), Header:=xlYes
Sub Schaltfläche1_Klicken()
Dim lSp As Long, lol As Long
With Sheets("Menu")
Application.CutCopyMode = False
lSp = .Range("cListen").Find(what:="Ang_P_Zahl", LookIn:=xlValues, lookat:=xlWhole).Column
lol = .Cells(Rows.Count, lSp).End(xlUp).Row
Range(.Cells(1, lSp), .Cells(lol, lSp)).RemoveDuplicates .Columns(lSp), Header:=xlYes
End With
End Sub
Range(.Cells(1, lSp), .Cells(lol, lSp)).RemoveDuplicates Columns:=1, Header:=xlYes