Macro med =NU

I din makro sætter du en variabel lig med NU() og lader makroen skrive værdien af din variabel.

Hilsen

TVC

Du kan eksempelvis anvende denne makro.

Sub Time()
Dim TimeNU

TimeNU = Now()
ActiveCell = TimeNU

End Sub

Hilsen TVC

og så en lille rettelse blot for at spare plads :-)

Sub Time()
Dim TimeNU As Date

TimeNU = Now()
ActiveCell = TimeNU

End Sub

TVC

Måske lige en tand enklere (men det var måske også det tvc mente?)

Sub Time()

ActiveCell = Now()

End Sub

Ja sjap det har du ret i TimeNU er overflødig, det gik lidt stærkt :-)

TVC

Der findes en Excel-funktion, der hedder Time, og derfor vil det nok være en god ide IKKE at kalde funktionen det. Så jeg vil da lige anbefale, at funktionen f.eks. kaldes:

Sub SkrivTid()

ActiveCell = Now()

End Sub

I stedet for Now() kan funktionen Time() bruges. Now returnerer både dato og tid, men Time kun returnerer tidspunktet. Now kan dog være en fordel ved tidsberegninger henover midnat. Uanset hvad man vælger, kan cellen jo formateres så den kun viser tidspunktet og intet andet.

1000 tak, jeg har brugt sjap's men tvc var jo først med en version der også virkede, så hvis i vil dele så læg lige et svar hver især, og igen 1000 tak for hjælpen

Jeg synes tvc skal have pointene - det jeg lavede var blot lidt finpudsning. ;0)

Ok fin gestus ;-) så må tvc ligge et svar.

Hej tvc, ligger du et svar ;-)

Tak sjap og famblach :-)

Hermed et svar.

Hvis man efter indsættelsen af NU kopiere dette felt og indsætter værdien vil problemet være løst simpelt og nemt.