Zellenformatierung
07.03.2003 12:29:35
Micha
Kann mir vielleicht jemand bei folgendem Problem weiterhelfen und das kleine Makro so anpassen, dass es so funktioniert wie ich es mir vorstelle ??? *g
Hier sollen einzelnen Zelleninhalte miteinander verglichen werden. Bei Übereinstimmung soll die Zelle mit den Werten x und c farbig markiert werden. Ich finde den Fehler leider nicht....
Herzlichen Dank im voraus...
Sub Finden()
Dim c As Range, x As Range
Dim strEnde As String
strEnde = Range("D7:D44").End(xlDown).Address
Range("D7:D44").Interior.ColorIndex = xlNone
For Each c In Range("G5:CM5")
'Jede verwendete Zelle in Spalte D wird durchlaufen und
'mit dem aktuellen Wert aus G5:CM5 verglichen. Bei Über-
'einstimmung wird die Zelle x,c mit roter Hinter-
'grundfarbe formatiert.
For Each x In Range("D7:D44")
If x.Value = c.Value Then
Cells(x, c).Interior.ColorIndex = 3
End If
Next
Next
End Sub