title image


Smiley Per VBA : Schriftfarbe bedingt auf ROT formatieren
Hey Trachy,



teste doch mal dieses Makro :

      

Sub SchriftfarbeRot()

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

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

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

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

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

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

        End If

    Next

End Sub 


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: