AW: Zellen farbig darstellen - vertikaler Vergleic
06.10.2006 09:52:02
Rudi
Hallo,
wirkt auf den markierten Bereich:
Sub tt()
Dim iCol, iRow, iRow2
Application.ScreenUpdating = False
With Selection
.Interior.ColorIndex = xlNone
For iCol = 1 To .Columns.Count
For iRow = 1 To .Rows.Count - 1
For iRow2 = iRow + 1 To .Rows.Count
If StrComp(.Cells(iRow, iCol), .Cells(iRow2, iCol), 0) = 0 Then
.Cells(iRow, iCol).Interior.ColorIndex = 4
.Cells(iRow2, iCol).Interior.ColorIndex = 4
End If
Next iRow2
Next iRow
Next iCol
End With
Application.ScreenUpdating = True
End Sub
Gruß
Rudi