löschen doppelte einträge
30.09.2005 22:44:10
achim
Wer kann helfen.
Mein Makrop soll die doppeltem Inhalte in L löschen. Tut es leider nicht!
Wo liegt mein fehler?
Sub DoppelteEinträgeLöschen()
Sheets("Gruppen").Activate
Range("L1").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Offset(1, 0).Cells.Clear
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Gruß
achim H.