hallo!

ich bins nochmal , mit einer 2.frage :)
ich habe einen löschalgorythmus, der von allen doppelten zeile eine löscht,
nur bei meinen 2000 zeilen dauert es immer so lange... :/
vielleicht entdeckt ihr etwas im code, was man optimieren könnte
(info: jede zeile kann maximal 1x doppelt sein (sprich max 1x2Zeilen des gleichen Inhaltes)):

Dim intRow As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
If Application.CountIf(Columns("A"), Cells(intRow, 1)) > 1 Then
Cells(intRow, 1).EntireRow.Delete
End If
intRow = intRow + 1
Loop