Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Dato i celle

 Besvar Besvar
Forfatter
Torben57 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17-03-2019
Land: Danmark
Status: Offline
Point: 9
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Torben57 Citér  BesvarSvar Direkte link til dette indlæg Emne: Dato i celle
    Sendt: 01-07-2019 kl. 08:49
Hej.
jeg mangler lidt hjælp og forklaring.

Jeg har lavet dette til at indsætte den aktuelle dato i celle "C4"
(indsat i ThisWorkbook)

Private Sub Workbook_Open()

  Range("C4").Find(Empty, LookIn:=xlValues).Select

  ActiveCell = Format(Now(), "dd-mm-yy")

End Sub


Det virker fint men er arket gemt og åbnes en anden dag slettes den gamle dato før den aktuelle date sættes ind.

Hilsen Torben Jensen 



Til top



Til top
Kurt Kubik Se dropdown
Sølv bruger
Sølv bruger


Medlem: 18-02-2012
Status: Offline
Point: 209
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Kurt Kubik Citér  BesvarSvar Direkte link til dette indlæg Sendt: 04-07-2019 kl. 23:57
Hvad er dit sprøgsmål?


Hej fra Lars (Kurt Kubik)
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08-11-2013
Status: Offline
Point: 86
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér icet Citér  BesvarSvar Direkte link til dette indlæg Sendt: 06-07-2019 kl. 08:43
Hej prøv evt. denne kode


Private Sub Workbook_Open()

If IsEmpty(Range("C4").Value) Then
        Range("C4").Value = Format(Now(), "dd-mm-yy")
End If

End Sub

Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2019 Dansk Regneark Forum - en del af Excel-regneark.dk