Cellen vergelijken

Status
Niet open voor verdere reacties.

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Beste,

Ik wil kolom E en F alle cellen vergelijken, als deze dezelfde waarden hebben, de tekst van kolom F in het rood gezet wordt...
Als deze allebei leeg zijn, er niets zal gebeuren...

Het lukt mij voor één cel maar niet voor een ganse kolom..

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Range("E1").Value = ActiveSheet.Range("F1").Value Then
Range("F1").Interior.Color = vbRed
End If
If Range("E1").Value = "" Then
    Range("F1").Interior.Color = xlNOne

End If
End Sub

Alvast bedankt!
 
zo?
Code:
For Each cl In Range("F1:F1000")
    If cl.Value = cl.Offset(, -1).Value Then
        cl.Interior.Color = vbRed
    Else
        cl.Interior.Color = xlNone
    End If
Next

Dit regelt de achtergrondkleur. In je vraag heb je het over tekstkleur, maar in je code niet.
 
Sorry, moet inderdaad tekstkleur zijn....
Alleen de cel met dezelfde tekst moet gekleurd worden..
 
Laatst bewerkt:
dan maak je er cl.Font.Color =VbRed van!
 
Zit toch al ingebouwd in Excel met voorwaardeljke opmaak ? (les 4 basiscursus Excel)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan