VBA haster

1. Activecell.entirecolumn.select
2. for each c in selection.cells
      if Selection.Interior.ColorIndex = 4 then ......
  next

takker.. det med farven skal jeg lige teste.. måske kommer der lige en lille bemærkning ... :-)

hvad er det lige jeg mangler for at den skriver datoen i de grønne felter..??? her er hele koden...

Range("A1").Select
  ActiveCell.Offset(5, 0).Rows("1:1").EntireRow.Select
    Selection.Find(What:="dato", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    ActiveCell.EntireColumn.Select
    If Selection.Interior.ColorIndex = 4 Then
FormulaR1C1 = "=NOW()"
Else
End If
End Sub

opretter lige et nyt spørgsmål..

http://www.eksperten.dk/spm/206684