Har du mærket hele koden op - Kopieret den - Og indsat den i VBA, på den fane, koden skal køre på ?

- Koden skal starte med Private Sub og slutte med End Sub.

Hvis du vil have måneden vist med bogstaver i stedet for tal, kan det sagtens ændres i kode.
Det er bare denne lille del af koden, der skal ændres "d. mmmm yyyy.

dd = Datoen vises med to cifre - F.eks. 03
d = Datoen vises med et cifre - F.eks. 3
d. = Punktum efter datoen = F.eks. 3.

mm = Måned vises med to cifre = F.eks. 09
mmm = Måned vises i kort format = F.eks. sep
mmmm = Måned vises i lang format = F.eks. september

yy = Årstal i kort format = F.eks. 16
yyyy = Årstal i lang format = F.eks. 2016

Du kan sætte bindestreg ind som separator eller bare et mellemrum.
Det kan laves, som man vil have det til at se ud.

Dato med punktum og lang måneds- og årtalsformat.

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If IsEmpty(Target) Then         Cancel = True         Target = Date         Target = Format(DateTime.Now, "d. mmmm yyyy   hh:mm:ss")     End If End Sub

Denne indsætter både Dato og Tidspunkt, når der dobbelt-klikkes.

Hvis du ikke vil have sekunderne med, kan du bare fjerne :ss i koden.

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If IsEmpty(Target) Then         Cancel = True         Target = Date         Target = Format(DateTime.Now, "dd-mm-yyyy   hh:mm:ss")     End If End Sub

Ib

Hej Henrik.

Nedenstående kode indsættes i VBA i den arkfane, koden skal virke på - F.eks. Ark1.
Du skal dobbelt-klikke i cellen.
Dobbelt-klik vil indsætte dags dato.

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If IsEmpty(Target) Then         Cancel = True         Target = Date     End If End Sub

 

Så tror jeg vi skal over i noget VBA...