Tid tilbage

nogen der kan hjælpe ?

Skal den bare regne det ud, eller skal den selv tælle ned automatisk?

Den skal selv tælle ned automatisk

Skal den stå og tælle ned (ligesom et ur) eller skal værdien bare opdateres, når du åbner arket og når du genberegner?

Blot et simpelt forslag

Function ShowTime()
Dim PauseTime, Start

PauseTime = 1

Do Until Range("B2") = 1
    Start = Timer
    forskel = Range("A1") - Now()
    Range("A2") = IIf(Year(forskel) - 1900 > 0, Year(forskel) - 1900 & " å ", "") & IIf(Month(forskel) > 0, Month(forskel) & " m ", "") & IIf(Day(forskel) > 0, Day(forskel) & " d ", "") & Format(forskel, "hh:mm:ss")
'    Range("A3") = Format(forskel, "yy ""å"" m ""m"" d ""d"" hh:mm:ss")
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
Loop

End Function

Kræver at dit måltidspunkt står i celle A1. Forskellen skrives i A2. Formateringen kan selvfølgelig godt ændres, men det afhænger af dit behov.

I eksemplet opdateres hvert sekund - det kan med fordel ændres til en højere værdi.

I eksemplet stoppes nedtællingen ved at skrive 1 i celle B2. Det kan selvfølgelig ændres, så det f.eks. sker ved tryk på en knap.

Hvis feltet ikke nødvendigvis skal opdateres hele tiden, kan du blot bruge følgende formel i en celle:

=A1-NU()

Den vil blive opdateret hver gang regnearket åbnes, og nå der genberegnes. Så skal du blot formatere cellen, så den viser det du vil se.


Hvis du placerer formlen i A2 kan du i øvrigt bruge en lidt simplere udgave af ShowTime til at lave en løbende opdatering:

Function ShowTime2()
Dim PauseTime, Start

PauseTime = 1

Do Until Range("B2") = 1
    Start = Timer
    Range("A2").Calculate
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
Loop

End Function

Ultra > Fik du løst problemet?

ja, det gjord jeg, tak!
Vil du ikke lige svare så jeg kan give dig point

Selvfølgelig :0)