Doppelte in verschiedenen Farbe
bernie
in einer Tabelle habe ich Spalte A doppelte Daten (Spalten B-...) unterschiedlich.
Nun möchte ich mir alle Doppelte Blöcke farblich markieren lassen - jedoch je Block eine Farbe.
Mit einer Farbe bekomme ich das hin aber ....
Vielleich kann mir da jemand helfen?
Bernie
Option Explicit
Sub Doppelt_Farbe()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(lngZeile, 2) = Cells(lngZeile + 1, 2) Then
With Range(Cells(lngZeile, 2), Cells(lngZeile + 1, 2))
.Font.Bold = True
.Interior.ColorIndex = 33
'.Font.ColorIndex = 3
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Anzeige