Wenn gleicher Wert dann verschieben

Sub Werte_Vergleichen()
Dim SourceRange As Range, SourceCell As Range, CompareRange As Range, CompareCell As Range, i  _
As Integer
Set SourceRange = Range("B2:B60")
Set CompareRange = Range("C2:C60")
For Each SourceCell In SourceRange
For Each CompareCell In CompareRange
If SourceCell = CompareCell And CompareCell.Value  "" Then
CompareCell.Interior.ColorIndex = 10
Else
SourceCell = SourceCell.Offset(i, 0)
CompareCell = CompareCell.Offset(i, 0)
End If
Next
Next
End Sub