kann mir bitte einmal jemand auf die Beine helfen? Folgender Code aus dem Forum funktioniert wunderbar. Aber:
Ich hätte gerne, dass der doppelte Eintrag in der geprüften Spalte nicht gelöscht, sondern in einer rechts davon eingefügten Spalte mit z.B. "doppelt" gekennzeichnet wird.
Bisher endete jeglicher Versuch beim ersetzen von "ClearContens" mit Codeteilen aus Macrorekorderaufzeichnungen mit der Meldung "typenunverträglich".
Sub Mehrfacheinträge_löschen() Application.ScreenUpdating = False EZ = Selection.Row s = Selection.Column LZ = Selection.End(xlDown).Row For i = LZ To EZ + 1 Step -1 If Cells(i, s) = Cells(i - 1, s) Then Cells(i, s).ClearContents Next i Application.ScreenUpdating = True End Sub
Bin für jeden Tip dankbar.
Gruß
Hans