Mehr als doppelt vorkommende WErte nicht löschen

Bild

Betrifft: Mehr als doppelt vorkommende WErte nicht löschen
von: armin3003
Geschrieben am: 14.11.2003 09:08:43

Guten Morgen,

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
Bild


Betrifft: AW: Mehr als doppelt vorkommende WErte nicht löschen
von: IngoG
Geschrieben am: 14.11.2003 15:38:43

HAllo Arnim,
Deinem Code zufolge sind deine Daten sortiert nach spalte A und du möchtest nur die eine Zeile löschen , wenn der wert in spalte a genau 2 mal vorkommt.

dann sollte die routine folgendermassen aussehen:



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))and(Cells(i, 1) <> Cells(i + 2, 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



habs zwar nicht geprüft, sollte aber funzen

Gruß Ingo

PS, eine Rückmeldung wäre nett...


Bild

Beiträge aus den Excel-Beispielen zum Thema " Mehr als doppelt vorkommende WErte nicht löschen"