Doppelte Eintraege loeschen

Alex · 2008-08-06T10:41:00+00:00

Guten Morgen, Ich habe ein kleines Problem und ich hoffe ihr koennt mir dabei helfen: Ich habe eine Spalte mir sehr vielen Eintraegen, bei der zum Teil auch doppelte sind. Ist es moeglich diese mit Hilfe einer Formel zu loeschen? Oder benoetigt man hierfuer ein Makro oder ka? Vielen Dank Alex

Hallo,


Sub Duplikate_weg2()
'Löscht die ganze Zeile
Dim Rg As Range
Application.ScreenUpdating = False
z = Cells(65536, 1).End(xlUp).Row
For j = z To 1 Step -1
Set Rg = Range(Cells(1, 1), Cells(z, 1))
If Application.WorksheetFunction.CountIf(Rg, "=" & Cells(j, 1)) > 1 Then
Rows(j).Delete Shift:=xlUp
End If
Next j
Application.ScreenUpdating = True
End Sub


Sub Duplikate_weg3()
'Löscht die Zellen in den Spalten A und B
Dim Rg As Range
Application.ScreenUpdating = False
z = Cells(65536, 1).End(xlUp).Row
For j = z To 1 Step -1
Set Rg = Range(Cells(1, 1), Cells(z, 1))
If Application.WorksheetFunction.CountIf(Rg, "=" & Cells(j, 1)) > 1 Then
Range(Cells(j,1), Cells(j,2).Delete Shift:=xlUp
End If
Next j
Application.ScreenUpdating = True
End Sub

beides ungetestet.
Gruß
Martin

Hallo
mit einer Formel kannst du nichts löschen, aber du kannst mit einer Formel die Doppelten Einträge kennzeichnen, bspw in
- unsortierten Listen mit ZÄHLENWENN
Beispiel für Spalte A : =ZählenWenn(A:A;A1)
es wird direkt angezeigt, wie oft ein Wert in der Liste vorkommt.
- sortierte Listen: mit einfachem Zellvergleich:
Beispiel für Spalte A (in Zeile 2): =Wenn(oder(A2=A1;A2=A3);"x";"")
hier werden alle doppelt vorkommenden Werte mit einem X gekennzeichnet.
wenn zum Löschen immer ein Eintrag stehen bleiben soll, dann musst du die formeln etwas umbauen, damit der Ersteintrag nicht mitmarkiert wird:
- unsortierte Liste: =wenn(ZählenWenn($a$1:a1;a1)>1;"x";"")
- sortierte Liste (in Zeile 2) : =Wenn(A2=A1;"x";"")
dann kannst du mit dem Autofilter die doppelten Einträge filtern und löschen.
bei grossen Datenmengen empfiehlt es sich, immer mit Sortierten Daten zu arbeiten und auch vor dem Löschen umzusortieren, so daß alle zu löschenden Zeilen lückenlos untereinander stehen.
dazu empfielt es sich, vor dem Sortieren in der Hilfsspalte die Formeln durch Werte zu ersetzen (Kopieren - Inhalte einfügen - WERTE)
Gruß, Daniel

Forumthread: Doppelte Eintraege loeschen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Doppelte Eintraege loeschen

Forumthread: Doppelte Eintraege loeschen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread