ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
Sub Eliminieren()
'Screening deaktivieren
Application.ScreenUpdating = False
'Doppelte Daten suchen
For i = 13 To 6 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i, 1).ClearContents
End If
Next i
'Meldungen unterdrücken.
Application.DisplayAlerts = False
MsgBox ("Die Daten sind gesprüft!")
End Sub
Option Explicit
Sub Eliminieren()
Dim i As Long
'Screening deaktivieren
Application.ScreenUpdating = False
'Doppelte Daten suchen
For i = 13 To 6 Step -1
If Application.CountIf(Range("A6:A13"), Cells(i, 1).Value) > 1 Then
Cells(i, 1).ClearContents
End If
Next i
Application.ScreenUpdating = True
MsgBox ("Die Daten sind gesprüft!")
End Sub