Dringend: Fehler in kleinem Code
14.12.2012 08:12:15
Tim
ich verwende folgenden Code in einem Makro und brauche dringend Eure Hilfe.
Obwohl beide Formatierungen (blauer Hintergrund und Symbolsatz) korrekt gesetzt werden, greift nur die Hintergrund-Formatierung aber statt der Symbole (Kreise mit 3 Farben) erscheint einfach nur mein Text.
Wenn ich die Formatierungen dagegen manuell eingebe, erscheinen auch die Kreise mit den Farben (grün, gelb, rot) korrekt.
Kann mir jemand sagen, wo hier der Fehler liegt ?
Sub FormatChange()
Dim rg As Range
Set rg = Worksheets(7).Range("F9:F1007")
Worksheets(7).Unprotect "XXX"
rg.FormatConditions.Delete
rg.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(SUBTOTAL(3,$C$9:$C9),2)"
rg.FormatConditions(rg.FormatConditions.Count).SetFirstPriority
With rg.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599963377788629
End With
rg.FormatConditions(1).StopIfTrue = False
rg.FormatConditions.AddIconSetCondition
rg.FormatConditions(rg.FormatConditions.Count).SetFirstPriority
With rg.FormatConditions(1)
.ReverseOrder = True
.ShowIconOnly = True
.IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1)
End With
With rg.FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 2
.Operator = 7
End With
With rg.FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 3
.Operator = 7
End With
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlCenter
Worksheets(7).Range("F9:F1007").Font.Size = 12
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="XXX"
End Sub
Tim