Duplikate entfernen (sehr viele)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim x As Long, MyCalcMod MyCalcMod = Application.Calculation 'Zustand merken Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For x = 1 To 15191 ActiveSheet.Columns(x).RemoveDuplicates Columns:=1, Header:=xlNo Next Application.Calculation = MyCalcMod 'Zustand wiederherstellen

Option Explicit Public Sub Duplicate_raus() Dim loletzteSpalte As Long Dim loletzteZeile As Long Dim i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Worksheets("Tabelle1") 'anpassen loletzteSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column For i = 1 To loletzteSpalte loletzteZeile = .Cells(.Rows.Count, i).End(xlUp).Row .Range(.Cells(1, i), .Cells(loletzteZeile, 1)).RemoveDuplicates Columns:=i, Header:= _ xlNo Next i End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

Hallo an euch 3,
danke nochmal für eure Unterstützung.
Matthias, dein Vorschlag hat zwar sehr lange gedauert, aber er hat funktioniert.
Werner, wie gesagt bei deinem Vorschlag kam der Laufzeitfehler.
Dirk, wenn ich deinen Link reichtig verstehe, meldet das Makro wenn mehrere Spalten ausgewählt wurden und bittet dann eine konkrete zu nennen. Sieht für mich so aus als müsste das Makro was das anbelangt ziemlich auf meine Bedürfnisse angepasst werden.
Was ja dank Matthias nicht mehr nötig ist.
Aber mir ist jetzt beim weiteren Verarbeiten des Ergebnisses noch etwas aufgefallen, wo ich vielleicht auch noch eure Hilfe brauche. Ist aber denke ich nichts großartiges.
Ich hatte bevor ich euch geschrieben hatte, die Daten transponiert, damit die Duplikate untereinander stehen, ich dachte nebeneinander Duplikate finden kann Excel nicht (zumindest nicht mit der normalen Funktion in den Datentools).
Jetzt hab ich das Ergebnis zurück transponiert. Alles soweit ok.
Nur jetzt mein Problem, ich bin vorher mit Strg+Ende hingegangen um die letzte, genutzte Spalte herauszufinden. Da Duplikate gelöscht wurden, lande ich jetzt mit Strg+Ende in der falschen Spalte(immer noch in der die die letzte vor dem Duplikate löschen war) Kann man da was machen?
Gruß
Christian

Hi
beim Duplikate-Entfernen findet keine neuberechnung der UsedRange statt.
das passiert erst beim nächsten Öffnen der Datei
eben so werden, falls du Formeln hast die sich auf die so bearbeitete Tabelle beziehen, diese nicht angepasst.
Das das alles nicht passiert, ist mit ein Grund warum das Duplikate-Entfernen so schnell ist.
im Code von Werner ist nur ein kleiner Flüchtigkeitsfehler drin.
du musst zweiten Cells ebenfalls die Variable i als Spaltennummer eintragen ("i" wird leider leicht mit 1 verwechselt)

.Range(.Cells(1, i), .Cells(loletzteZeile, i))
außerdem musst du die Programmzeilen ohne Zeilenumbruch (Unterstrich _ ) angeben.
der Editor des Forums fügt diese automatisch bei langen Zeilen ein, allerdings sind diese dann vom VBA-Editor nicht verarbeitbar, weil sie an unpassender Stelle sitzen oder sonstwie nicht passen:
dh mache aus

...)).RemoveDuplicates Columns:=i, Header:= _
xlNo

eine Zeile:

...)).RemoveDuplicates Columns:=i, Header:=xlNo

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread