title image


Smiley Also die Königslösung ist das sicher noch nicht, aber...
...wenn's Dir nicht zu inperformant wird (weiß nicht, wie groß das Tabellenblatt ist), dann probier's mal so:





Public Sub SchriftfarbeRot()



Dim z As Long

Dim bolCheck As Boolean



For z = 2 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1



bolCheck = Cells(z, "C") = Cells(z - 1, "C") And _

Cells(z, "E") = Cells(z - 1, "E") And _

Cells(z - 1, "G") > Cells(z, "F")



Cells(z - 1, "G").Font.Color = IIf(bolCheck, vbRed, vbBlack)

Cells(z, "F").Font.Color = IIf(bolCheck, vbRed, vbBlack)



Next



End Sub







Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: