Gruppe
Feature
Problem
Wie kann ich die Maximalwerte im selektierten Bereich über die bedingte Formatierung violett markieren lassen?
StandardModule: Modul1
Sub BedingtFormat()
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=" & Range("Bereich").Cells(1).Address(False, False) & _
"=MAX(" & Selection.Address & ")"
.FormatConditions(1).Interior.ColorIndex = 39
End With
End Sub