Doppelte Werte markieren
18.09.2006 00:40:07
Sepp
hab da ein kleines Problem, und steh momentan ziehmlich auf dem Schlauch
vielleicht kann mir jemand weiterhelfen.
Hab da ein Makro mit dem ich doppelte Eintäge farbig markiere.
Jetzt möchte ich aber nicht nur die Spalte C überprüfen sondern
die Spalten C5:C203 bis AG2:AG203.
Wäre sehr dankbar wenn jemand mit mehr Kenntnis als ich, die entsprechende Ergänzung für mich tätigt.
Sub Doppelte_Markieren()
For I = 203 To 5 Step -1
If Application.CountIf(Range("C5:C202"), Cells(I, 3)) > 1 Then
Cells(I, 3).Interior.ColorIndex = 5
End If
Next I
End Sub
Besten Dank
Gruß Sepp