Doppelte Einträge löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Doppelte Einträge löschen
von: Torsten K.
Geschrieben am: 01.12.2003 16:42:34

Hallo zusammen,

unter Herber's Excel-Hilfe habe einen Code gefunden, mit dem ich doppelte Einträge löschen kann. Dieser Code bezieht sich aber offensichtlich nur auf die Spalte A (zumindest bei meinen Tests).


Sub DblFind()
'löscht Zeilen mit doppelten Einträgen in Spalte A
If MsgBox("Sollen doppelte Einträge jetzt gelöscht werden?", vbYesNo) = vbYes Then
Dim iRow As Integer
Dim 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
Else
End If
   
End Sub

Wie muß ich den Code denn anpassen, damit doppelte Einträge in der Spalte gelöscht werden, in welcher sich der Cursor gerade befindet?
Vielen Dank für Eure Hilfe.

Gruß
Torsten
Bild


Betrifft: AW: Doppelte Einträge löschen
von: Marc
Geschrieben am: 01.12.2003 16:50:03

Hallo Torsten,

versuch es mal damit:


Sub DblFind()
'löscht Zeilen mit doppelten Einträgen in Spalte A
If MsgBox("Sollen doppelte Einträge jetzt gelöscht werden?", vbYesNo) = vbYes Then
Dim iRow As Integer
Dim iRowL As Integer
Dim Col As Integer
   Col = ActiveCell.Column
   iRowL = Cells(Cells.Rows.Count, Col).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      If WorksheetFunction.CountIf(Columns(Col), Cells(iRow, Col)) > 1 Then
         Rows(iRow).Delete
      End If
   Next iRow
Else
End If
   
End Sub


Ich habs jetzt nicht getestet, sollte aber funktionieren.

Grüsse,
Marc


Bild


Betrifft: Bestens - Vielen Dank / Gruß Torsten (oT)
von: Torsten K.
Geschrieben am: 01.12.2003 17:05:29




Bild

Beiträge aus den Excel-Beispielen zum Thema " Doppelte Einträge löschen"