Möchte aus nem Excelsheet Duplikate herausfiltern. Am besten aus zwei Spalten. Verwende dabei folgendes Makro:
Sub ident_rows()
startzeile = ActiveCell.Row 'suche aufwärts ab der aktuell aktivierten Zeile
startspalte = ActiveCell.Column
i = startzeile
geloeschte_zeilen = 0
Set bereich = Intersect(Columns(startspalte), _
Range(startzeile & ":65536"), _
ActiveSheet.UsedRange)
If bereich.Cells.Count < 2 Then Exit Sub
Do
j = bereich.Cells.Count
gleich = False
Do
If bereich(i) = bereich(j) Then
bereich(j).EntireRow.Delete shift:=xlUp
geloeschte_zeilen = geloeschte_zeilen + 1
End If
j = j - 1
Loop Until j <= i
bereich(i).Offset(0, 1) = geloeschte_zeilen
geloeschte_zeilen = 0
i = i + 1
Loop Until i >= bereich.Cells.Count
End Sub
-------
Aber er filtert irgendwie mir unergründlich Zeug raus und dann stehen in zwei Zelle untereinander immernoch Duplikate. Was mach ich falsch. Möchte, dass er in Spalte F und Spalte H die Duplikate sucht. Ausserdem wäre es noch von Vorteil, wenn er mir die gelöschten zählt, d.h. dass ich seh, wo die Duplikate waren und wieviele es mal waren.
Thxs 4 Help!