Mehr als doppelt vorkommende WErte nicht löschen
14.11.2003 09:08:43
armin3003
ich verwende zum Löschen von doppelten Werten folgenden Code:
Sub Makro1()
Dim i%
For i = 1 To Cells(Cells.Rows.Count, 1).End(xlUp).Row - 1
If Cells(i, 1) = Cells(i + 1, 1) Then
If Not IsEmpty(Cells(i, 2)) Then
Range(Cells(i + 1, 1), Cells(i + 1, 5)).ClearContents
Else
Range(Cells(i, 1), Cells(i, 5)).ClearContents
End If
End If
Next i
End Sub
Das klappt auch einwandfrei, jedoch möchte ich Werte die mehr als doppelt vorkommen nicht löschen. Gibt es hierfür eine Möglichkeit, diesen Code abzuändern?
Gruesse an alle
Armin
Anzeige