Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature may not be available in some browsers.
Public Sub Doppelte_Rot()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
lngZeile = Cells(Rows.Count, 2).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 2).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 2)), strSuchwert) <> 1 Then
Cells(lngZeilenSprung, 2).Interior.ColorIndex = 3
End If
Next lngZeilenSprung
End Sub