Doppelte Werte
17.12.2003 22:21:48
heinz
ich möchte in der Spalte Q nach doppelten Werten suchen.
Mit dem unten aufgeführtem code geht das.
Wie kann muß ich den Code ändern wenn ich nur in den Zeilen 13 bis 31, in Spalte Q die Werte vergleichen will, ohne dass die werte in zeile 1 bis 12 mit
einbezogen werden.
'
Sub DoppelteMarkieren()
Dim intRow As Integer, intRowL As Integer
intRowL = Cells(Rows.Count, 17).End(xlUp).Row
For intRow = intRowL To 2 Step -1
If Application.CountIf(Columns("Q"), Cells(intRow, 17)) > 1 Then
Cells(intRow, 17).Interior.ColorIndex = 6
End If
Next intRow
End Sub
danke im voraus