ich bräuchte nochmal Hilfe zu dem unten stehen Code.
Zwischen dem großen Platzhalter im Code, bräuchte ich eine If-Zeile die sagt:
Wenn die Schriftfarbe im definierten Bereich (Zeile 8 bis 240) nicht schwarz ist, dann soll sie schwarz sein.
Vielen Dank vorab!
Gruß
Thomas
Sub Doppelt_entfernen()
Dim lngZeile As Long, Col$
Col = InputBox("Bitte geben Sie die Spalte an, in der Sie Duplikate markieren möchten!", " _
Doppelte Einträge markieren", "")
If StrPtr(Col) = 0 Or IsNumeric(Col) Then Exit Sub
Application.ScreenUpdating = False
For lngZeile = 8 To Cells(240, Col).End(xlUp).Row
With Cells(lngZeile, Col)
' .Font.Bold = True 'Fett Formatierung
.Font.ColorIndex = 1
End With
End If
Next
Application.ScreenUpdating = True
End Sub