Overfør værdi fra en celle på et bestemt tidspunkt.

Hvis du åbner arket den 10-1-2011 vil der bleve opdateret kl. 12 med nedenstående opskrift.

I den mappe, hvor det skal ske, kan du lægge denne kode i Modularket ThisWorkbook lægger du denne kode:

Private Sub Workbook_Open()
    Application.OnTime TimeValue("12:00:00"), "Overfoer"
End Sub

I et almindeligt modulark lægger du denne kode.

Sub Overfoer()
    Sheets(1).Range("A2") = Sheets(1).Range("a1")
End Sub

Tilsyneladende ignorerer OnTime datoer, så arket skal altså åbnes den relevante dag.

Tak for dit svar.

Jeg har indsat koden i "ThisWorkBook":

Private Sub Workbook_Open()
    Application.OnTime TimeValue("12:00:00"), "Overfoer"
End Sub


Jeg har først lige stiftet bekendskab med VBA og kan ikke finde ud af hvor jeg skal indsætte den sidste formel i det almindelige ark:

Sub Overfoer()
    Sheets(1).Range("A2") = Sheets(1).Range("a1")
End Sub


Har prøvet med A2 og har sat "=" foran, men uden succes.

Venlig Hilsen
Laugesen

My mistake. Når du har indsat den første kode i ThisWorkbook skal du klikke på Insert (stadig i VBA editoren) og vælger Module. Det er i dette nye modul, at den anden kode skal indsættes. Derefter skal mappen gemmes, og så åbnes "med makroer" den dag, hvor overførslen skal ske.

Hej igen

Undskyld at jeg ikke har svaret før nu.

Jeg har nu prøvet dit forslag. Ændrede tidspunktet til 22.00.

Jeg gjorde følgende:
Indsatte første formel i "ThisWorkBook"
Indsatte anden formel i "Insert UserForm" og har valgt: "Modul"

Har gemt arket og åbner det igen og derefter har jeg tastet:
Alt+F11 for at åbne makroer. Er det den rigtige fremgangsmåde ?
Det virker desværre ikke.

Venlig Hilsen
Laugesen

Jeg er blevet påmindet om, at jeg har et gammelt spørgsmål stående.
Kan jeg, at jeg aldrig har givet dig point for dit svar.

Laugesen

c