Hallo zusammen,
ich habe folgendes Problem:
Sub ColorColumns()
Dim c As Range
Dim m As Date
m = Now()
For Each c In Sheets("FC Data").Range("G13:ZZ13").Cells
If c.Value < DateAdd("m", 2, m) Then
c.EntireColumn.Interior.ColorIndex = 3
ElseIf c.Value < DateAdd("m", 3, m) Then
c.EntireColumn.Interior.ColorIndex = 6
End If
Next c
End Sub
Wie schaffe ich es, dass nicht die gesamte Spalte eingefärbt wird (sofern die Bedingung erfüllt ist), sondern das Einfärben erst ab Zeile 17 abwärts beginnt. Also ich möchte verhindern, dass die Zeilen 1-16 einer Spalte bei erfüllter Bedingung nicht gefärbt wird.
Danke für Eure Unterstützung!
Jens
|