Doppelte Einträge löschen
11.08.2006 10:08:26
Erich
Wie kann ich den Code ändern.
In der Spalte 1 stehen Zeiten formatiert hh:mm.
In der Spalte 2 stehen Namen formatiert mit Text
Ich möchte doppelte Einträge löschen, aber es können in der Spalte 1
gleiche Zeiten stehen die aber zu verschiedenen Namen gehören
Nun möchte ich die beiden Spalten überprüfen damit wirklich nur
die doppelten Zeilen gelöscht werden.
Sub DblFind()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Ich hoffe jemand versteht was ich meine.
Vielen Dank schon mal
Gruss Erich
Anzeige