VBA

Sub test()
Dim rng As Range
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).Select
    Set rng = Range(ActiveCell, ActiveCell.SpecialCells(xlCellTypeLastCell))
    For Each c In rng.Cells
        If c.Interior.ColorIndex = 4 Then
            c.FormulaR1C1 = "=NOW()"
        End If
    Next
End Sub

Med linien set rng = .... har jeg sat et område som skal gennemsøges for grønne felter. dette er ikke hele kolonnen da det tager for lang tid at gennem 65000 celler.
Det nye område strækker sig til sidste celle i kolonnen der har været brugt (incl. farvet.)

det med set rng =
er ikke godt... fordi der ikke behøves at være værdier i de mellemlæggende celler. kan man ikke bare fastsætte denne range til at dække over de første 100 rækker

Har du prøvet det, Region ? Det er nemlig ligemeget om der er værdier i cellerne. Bare det at en celle er farvet er nok og den skulle finde de celler der er farvet.
Ellers
Set rng = range(activecell, activecell (100,1))

sidstnævnte prøvede jeg faktisk selv, men måtte afslutte uden at have fået det til at virke. JEg prøvede at indføje at alle de omtalte celler fra offset 1-100 skulle være grønne... så virkede det, hvis ikke de var det flyttede "musen" sig ikke til ny celle...

send evt. et lille testark på nt@solar.dk

Er sendt...
Bak

er modtaget og ok...

tak for hjælpen.