Bed. Formatierung per Makro
13.12.2012 13:46:23
Tim
ich möchte gerne per Makro eine bedingte Formatierung zu einer bereits bestehenden hinzufügen und zwar so, dass die neue Formatierung als zweites Kriterium bzw. zweite Priorität hinzugefügt wird.
Bisher habe ich folgenden Code, bei dem jedoch immer der Debugger anspringt (erste Zeile über With):
Sub FormatSetRules()
Dim rg As Range
Set rg = Worksheets(7).Range("F9:F1007")
rg.FormatConditions.AddIconSetCondition
rg.FormatConditions(rg.FormatConditions.Count).SetSecondPriority
With rg.FormatConditions(2)
.ReverseOrder = True
.ShowIconOnly = True
.IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1)
End With
With rg.FormatConditions(2).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 2
.Operator = 7
End With
With rg.FormatConditions(2).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 3
.Operator = 7
End With
rg.FormatConditions(2).StopIfTrue = False
End Sub
VG und vielen Dank Euch im Voraus,
Tim