Herbers Excel-Forum - das Archiv
Mehr als doppelt vorkommende WErte nicht löschen
- Mehr als doppelt vorkommende WErte nicht löschen von armin3003 vom 14.11.2003 09:08:43
- AW: Mehr als doppelt vorkommende WErte nicht löschen - von IngoG am 14.11.2003 15:38:43
- AW: Mehr als doppelt vorkommende WErte nicht löschen - von IngoG am 14.11.2003 15:38:43
 |
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
 |
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...
| |