doppelte Werte suchen
Walter
ich möchte gern die Spalte "Y" nach doppelten Werten suchen.
Habe dieses Makro gefunden, soweit i.o. aber die Leerzellen werden ebenfalls
makiert, wie kann man dies unterbinden ?
Sub doppelte ()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
lngZeile = Cells(Rows.Count, 25).End(xlUp).Row
For lngZeilenSprung = lngZeile To 4 Step -1
strSuchwert = Cells(lngZeilenSprung, 25).Value
If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _
Cells(lngZeile, 25)), strSuchwert) 1 Then
Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36
End If
Next lngZeilenSprung
End Sub