Spalte A ändern in B
Kai
ich habe diesen Code aus dem Internet, möchte aber statt die Spalte A die Spalte B auf doppelte überprüfen. was muss ich da ändern ?
Danke
Option Explicit
Public Sub Doppelte_Rot()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 1).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(lngZeile, 1)), _
strSuchwert) 1 Then
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
End If
Next lngZeilenSprung
End Sub
Anzeige