Doppelte Eintraege loeschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DoppelteEinträgeLöschen() Sheets("Tabelle1").Activate Range("A1").Select Do Until IsEmpty(ActiveCell) If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then ActiveCell.Offset(1, 0).EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub

Sub Duplikate_weg() 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 Cells(j, 1).Delete shift:=xlShiftUp End If Next j Application.ScreenUpdating = True End Sub

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

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

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

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelte Eintraege loeschen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread