Sub MehrfacheMarkieren() Dim rngZelle As Range For Each rngZelle In ActiveSheet.UsedRange If Application.CountIf(ActiveSheet.UsedRange, rngZelle) > 1 Then rngZelle.Interior.Color = 255 Next rngZelle End Sub
Sub MehrfacheMarkieren() Dim rngZelle As Range Dim lngZeile As Long For lngZeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row For Each rngZelle In Range(Cells(lngZeile, 1), Cells(lngZeile, 4)) If Application.CountIf(Range(Cells(lngZeile, 1), Cells(lngZeile, 4)), rngZelle.Value) > 1 Then Range(Cells(lngZeile, 1), Cells(lngZeile, 4)).Interior.Color = 255 Exit For End If Next rngZelle Next lngZeile End Sub
58.4k Fragen
249k Antworten
7k Nutzer