VBA Bedingte Symbolsätze verschwinden immer
06.03.2017 08:45:15
Besen
ich möchte Symbolsätze nutzen. Diese Funktionieren, doch sobald ich Application.Calculation = xlCalculationAutomatic ausführe verschwinden diese wieder.
Hier der Code für das setzen der Ampel:
For i = 18 To 146
With wb.Sheets(3)
.Range(Cells(i, 6), Cells(i, lastColumnDashboard)).FormatConditions.AddIconSetCondition
.Range(Cells(i, 6), Cells(i, lastColumnDashboard)).FormatConditions(.Range(Cells(i, 6), _
Cells(i,lastColumnDashboard)).FormatConditions.Count).SetFirstPriority
With .Range(Cells(i, 6), Cells(i,lastColumnDashboard)).FormatConditions(1)
.ReverseOrder = True
.ShowIconOnly = False
.IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1)
End With
With .Range(Cells(i, 6), Cells(i,lastColumnDashboard)).FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueFormula
.Value = "=$B$8/100"
.Operator = 7
End With
With .Range(Cells(i, 6), Cells(i, lastColumnDashboard)).FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueFormula
.Value = "=$B$7/100"
.Operator = 7
End With
End With
i = i + 7
Next i
Anzeige