sæt denne i arkets modul' den opdateres når arket vælges fra et andet ark
Private Sub Worksheet_Activate() Dim I As Long For I = 2 To Range("A65536").End(xlUp).Row ' starter i række 2 If IsDate(Cells(I, 1)) Then If Cells(I, 1).Value < Date Then Cells(I, "B") = "B10" If Cells(I, 1).Value >= Date Then Cells(I, "B") = "B100" End If Next End Sub
Jeg har fundet frem til, at denne formel =HVIS(J2<=IDAG();"B100";"B10") giver mig den ønskede værdi i cellen. Problemet er bare, at hvis et eksternt program skal indlæse denne celle, er det formlen og ikke værdien den henter. Jeg kan så manuelt løse problemet ved at kopiere indholdet og vælge indsæt speciel i en tom kolonne og flytte indholdet tilbage. Men det er lidt omstændigt.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.