Makroablauf
07.10.2005 09:50:02
Werner
mit diesem Makro lösche ich in der Spalte 8 alle doppelten Einträge.
In der Version 2000 ging das Makro schneller als jetzt in der Version 2003.
Gibt es eine möglichkeit das wieder schneller zu machen?
Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 3).End(xlUp).Row
For i = laR To 2 Step -1
laR = Cells(Rows.Count, 3).End(xlUp).Row
Set SuBe = ActiveSheet.Range(Cells(1, 8), Cells(i - 1, 8)) _
.Find(Cells(i, 8), lookat:=xlWhole)
If Not SuBe Is Nothing Then
SuBe.EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruss Werner
Anzeige