Probleme mit RemoveDuplicates
22.10.2019 12:44:03
Werner
ich habe eine Tabelle mit 3 Spalten. Zu diesem Ergebnis kommt auch "ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column".
Nun möchte ich Duplikate entfernen:
Debug.Print ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Debug.Print ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
ActiveWorkbook.Worksheets(AddedSheet).Range(Cells(1, 1), Cells(MaxRows, 3)).RemoveDuplicates _
Columns:=Array(1, 2, 3), _
Header:=xlYes
Debug.Print ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Die beiden Debugs vor dem Remove zeigen 50 Rows und 3 Columns an. Der Debug nach dem Remove zeigt ebenfalls 50 Rows an, obwohl 7 Rows gelöscht wurden.
Was mache ich falsch?
Gruß
Werner