ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub
greeze
e
Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
Sheets(1).Cells(i, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub
greeze
e