Toch nog probleem systeemtijd in 0,1sec

[mulderm]

Na mijn eerdere vraag in dit forum toch nog een probleem.
In cel A2 heb ik de volgende functie geplaatst:
=AANTAL(A5:A65536) om de gevulde cellen bij te houden.
Daarna de volgende code:

Sub Loggen()
Dim a As Integer
a = Range("A2").Value + 5
Range("A" & a).Select
ActiveCell.Value = "=NOW()"
Selection.NumberFormat = "h:mm:ss.0"
End Sub

Hier heb ik wel de tiende seconde erbij in de cel, maar de voorgaande gevulde
cellen veranderen ook mee en dat is niet de bedoeling!
Bij de volgende code worden de voorgaande cellen niet meeverandert maar
krijg ik geen tiende seconde!

Sub loggen4()
Dim a As Integer
a = Range("A2").Value + 5
Range("A" & a).Select
Cells(a, 1).Value = Now()
Selection.NumberFormat = "h:mm:ss.0"
End Sub

Wie kan mij helpen?

Groeten,
mulderm

 

[Roncancio]

Sub loggen4()
Dim A As Integer
A = Range("A2").Value + 5
Range("A" & A).Select
Selection.Value = "=NOW()"
Selection.NumberFormat = "h:mm:ss.0"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[mulderm]

Geweldig Roncancio!!
Probleem dankzij jou opgelost.
Kun je jou code uitleggen, gewoon voor de nieuwsgierigheid en om wat op
te steken.
Nogmaals bedankt.

mulderm

 

[Roncancio]

Kun je jou code uitleggen, gewoon voor de nieuwsgierigheid en om wat op
te steken.

De code berekent de waarde van Nu, kopieert het en zet de waarde in de cel neer.
De formule wordt dus vervangen door de waarde. Hierdoor wijzigt de waarde niet als je een herberekening uitvoert.

 

[mulderm]

Dankjewel.

mulderm