ich habe diesen Code aufgezeichnet. Leider werden beim Duplikaten entfernen alle Rahmen, Füllfarben usw. mit entfernt. Ich möchte aber nur das die Werte oder das gleich die ganzen Zeilen entfernt werden. Kann mir dabei bitte jemand weiterhelfen. Danke
Gruß Marco
ActiveWorkbook.Worksheets("test").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("test").AutoFilter.Sort.SortFields.Add _
Key:=Range("H5:H1095"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("test").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$D$5:$L$1095").RemoveDuplicates Columns:=Array(1, 4, 5), _
Header:=xlYes