VBA FormatCondition Formula nächste spalte
18.10.2019 19:38:23
xxFreestylexx
Das ist mein Code für die erste spalte.. Wie könnte ich das ganze jetzt für spalte CY usw Wiederholen?
geht bis "SQ"
Sub bedingteformatierung
Set rng1 = Range("C18:C21,CX18:CX21")
Worksheets("Projektübersicht").Rows("8:65536").FormatConditions.delete
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CX$19:$CX$21)$CX$18"
.FormatConditions(2).Interior.ColorIndex = 3
End With
End Sub
Set rng1 = Range("C18:C21,CY18:CY21")
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CY$19:$CY$21) .FormatConditions(1).Interior.ColorIndex = 50
End With
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CY$19:$CY$21)>$CY$18"
.FormatConditions(2).Interior.ColorIndex = 3
End With
Danke für eure hilfe
Anzeige