Doppelte Datensätze markieren
08.11.2003 13:38:23
Burghard
ich habe immer noch mit einem Problem zu kämpfen. Kann mir jemand den Code so umschreiben, daß bei mehreren gleichen Datensätzen der erste doppelte Datensatz mitmarkiert wird?
Hilfe wäre super! Danke im voraus!
Gruss Burghard
Beispiel:
Tabellenspalte A enthält nach Sortierung:
1
2
2
2
3
4
4
5
Nach Codeausführung (s.u.): Markiert mit roter Schrift wird:
1
2
2 rot
2 rot
3
4
4 rot
5
Ich brauche aber diese Markierung:
1
2 rot
2 rot
2 rot
3
4 rot
4 rot
5
Kann man den Code dahingehend abändern?
Sub Doppelt_Red()
Application.ScreenUpdating = False
Rng = Selection.Rows.Count
For i = Rng To 1 Step -1
myCheck = ActiveCell
ActiveCell.Offset(1, 0).Select
For j = 1 To i
If ActiveCell = myCheck Then
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select
Next j
ActiveCell.Offset(-i, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
Anzeige