Frage erledigt
04.04.2011 22:22:25
Reinhard
Hallo,
danke für eure Zeit und Mühen.
Ich habe mir den nachfolgenden Code gebastelt, scheint zu funktionieren.
Gruß
Reinhard
Option Explicit
Sub Symboltest()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A100")
.Cells(1, 1).Value = DateSerial(2011, 2, 10)
.Cells(1, 1).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=1, Stop:=.Cells(1, 1).Value + 99, Trend:=False
.FormatConditions.Delete
.FormatConditions.AddIconSetCondition
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.ReverseOrder = False
.ShowIconOnly = False
.IconSet = ActiveWorkbook.IconSets(xl3Signs)
End With
With .FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = "=Heute() - 31"
.Operator = 7
End With
With .FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = "=Heute() - 1"
.Operator = 7
End With
.EntireColumn.AutoFit
End With
End Sub