Avatar billede Cikija Nybegynder
26. maj 2016 - 18:42 Der er 2 kommentarer og
1 løsning

Indsæt rigtig dato med VBA.

Jeg skal sætte dags dato og klokkeslet ind, i næste ledige række.
Jeg har sat denne sammen, ved at kigge på eksperten, men den sætter forkert dato ind.
Det ligner dato og klokkeslet, fra jeg lukkede dokumentet i går aftes.
Her er den.
Hvad gør jeg forkert?

Sub FindTom()

    Range("A11:A57").Find(Empty, LookIn:=xlValues).Select
  ActiveCell.Value = FileDateTime(ActiveWorkbook.FullName)
End Sub


Kim
Avatar billede ebea Ekspert
26. maj 2016 - 19:23 #1
Prøv denne:

Sub dato_ind()
    Cells(1, 1).Select  'starter i celle A1
    Do Until ActiveCell = ""
      ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = Format(Now(), "dd-mm-yyyy - hh:mm")
End Sub
Avatar billede Cikija Nybegynder
26. maj 2016 - 19:28 #2
Perfekt:

Den endte sådan:

Sub FindTom()

  Range("A11:A57").Find(Empty, LookIn:=xlValues).Select
  ActiveCell = Format(Now(), "dd-mm-yyyy - hh:mm")
 
End Sub

Laver du et svar, så du kan få point?
Avatar billede ebea Ekspert
26. maj 2016 - 19:32 #3
Ok ;-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester