Mit Dropdown nur Formatierung ändern

Sub erledigt()
Selection.FormatConditions.Delete
Selection.Font.ColorIndex = 10
Selection.Font.Bold = True
End Sub

Sub offen()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=HEUTE()"
With Selection.FormatConditions(1).Font
.Bold = False
.Italic = False
.ColorIndex = xlAutomatic
End With
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
Formula1:="=HEUTE()"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End Sub