RemoveDuplicates

Question

Hallo,
bei mir funktioniert der RemoveDuplicates nicht.

Range(Cells(lngZeile, lngSpalte), Cells(Cells(Rows.Count, lngSpalte).End(xlUp).Row, lngSpalte + 3)).RemoveDuplicates

Wenn die gleichen Daten direkt im Excel mit "Duplikate löschen" bearbeite funktioniert das einwandfrei.


Ich habe in allen Zeilen das gleiche Format und prüfe alle 4 Spalten nach dem Duplikat. Hat jemand einen Tipp, woran es liegen könnte, dass es im Code nicht funktioniert?
[/list]04.01.2016 15:00 16:00 Meier
04.01.2016 15:00 16:00 Meier
04.01.2016 15:00 16:00 Müller
04.01.2016 15:00 16:00 Max
04.01.2016 15:00 16:00 Max
04.01.2016 15:00 16:00 Max
[list]
Danke und Gruß Andreas

Answer 1

...Entwarnung... habe den Fehler gefunden! Hatte irgendwo gelesen, dass keine Angabe von Spalten notwendig sei, was aber falsch ist.
Mit

Range(Cells(lngZeile, lngSpalte), Cells(Cells(Rows.Count, lngSpalte).End(xlUp).Row, lngSpalte + 3)).RemoveDuplicates Columns:=Array(1, 2, 3, 4)

funktioniert es einwandfrei.
Gruß A.