Duplikate entfernen - Code Optimierung
22.06.2016 12:40:18
Noureddine
kann man den Code effektiver gestallten.
Ich habe eine Menge von Daten die ich nach Dupletten überprüfe. Die Prozedur dauert altuell ca. 8 min.
Wie geht's schneller?
Danke im Voraus.
Private Sub cmdDeleteRow_Click()
Dim RowCounter As Long
Application.ScreenUpdating = False
For RowCounter = Cells(Rows.Count, txtSpaltennummer).End(xlUp).Row To txtBeginnZeile Step -1
If Application.WorksheetFunction.CountIf(Range(Cells(txtBeginnZeile, txtSpaltennummer), _
Cells(RowCounter, txtSpaltennummer)), Cells(RowCounter, txtSpaltennummer).Value) > 1 Then
Rows(RowCounter).Delete xlUp
End If
Next RowCounter
Unload Me
Application.ScreenUpdating = True
End Sub