Dreifarbige Farbskala mit VBA in Microsoft Excel

Die Methode AddColorScale() wird mit dem Wert 3 für den Parameter Type aufgerufen. Bei der Änderung wird auch die Farbe für das Auflistungselement xlConditionValuePercentile geändert. Beim Perzentil handelt es sich um einen bestimmten mittleren Wert aus der Statistik.

Sub DreiFarbenSkala()
Dim rg As Range
ThisWorkbook.Worksheets("Tabelle6").Activate
Set rg = Range("A2:A11")
rg.FormatConditions.Delete
' DreiFarbenSkala erzeugen
rg.FormatConditions.AddColorScale 3
' DreiFarbenSkala ändern
With rg.FormatConditions(1)
.ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
.ColorScaleCriteria(1).FormatColor.Color = _
vbGreen
.ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
.ColorScaleCriteria(2).FormatColor.Color = _
vbYellow
.ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
.ColorScaleCriteria(3).FormatColor.Color = _
vbRed
End With
End Sub