problem mit doppelte Eintrage markieren
08.06.2006 10:52:48
ray
ich möchte mit folgenden Code erreichen, daß alle doppelten Eintrag einer Spalte gelb markiert werden. Leider funzt es nicht.
Sub DoppelteMarkieren()
Worksheets("mit2005").Select
Dim intRow As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
If Application.CountIf(Columns("x"), Cells(intRow, 1)) > 1 Then
Cells(intRow, 1).Interior.ColorIndex = 6
End If
intRow = intRow + 1
Loop
End Sub
Weiß jemand warum?
Viele Grüße aus HH bei strahlender Sonne
ray