in einem kleinen Makro wird jeweils in einer Zeile ein kleiner Bereich an Zellen markiert, dem dann ein bedingtes Format zugewiesen wird.
Aus irgendeinem Grund wird jedoch immer eine Zeile übersprungen, d.h. Zeile 1 besitzt die zugewiesenen Eigenschaften, Zeile 2 nicht, Zeile 3 ja, ... woher kommt das?
Hier der Code:
Sub test()
Dim zähler
Dim formel As String
zähler = 1
For zähler = 1 To 20
With Worksheets(1).Activate
Range(Cells(zähler, 1), Cells(zähler, 5)).Select
formel = "=MIN($A$" & zähler & ":$E$" & zähler & ")"
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=formel
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 10
End With
zähler = zähler + 1
End With
Next
End Sub
Vielen Dank für Eure Hilfe,
... Claudio.