Dato fastfryses hvis "sand"

..
    Range("A2") = Format(Now, "dd-mm-yy")
..

Den vil umiddelbart ikke acceptere formlen, det ser blandt andet ud til at den har problemer med Range (plads) funktionen - kan sagtens være at det er en fejl 40 og at min konvertering til DK excel ikke er korrekt

Den vil umiddelbart ikke acceptere formlen, det ser blandt andet ud til at den har problemer med Range (plads) funktionen - kan sagtens være at det er en fejl 40 og at min konvertering til DK excel ikke er korrekt

Det er VBA og ikke en formel..

Superteksts løsning er, som han skriver, ikke en funktion/formel, men VBA-programmering. Så Range-sætningen kan ikke indtastes i en celle som Excels indbyggede funktioner (f.eks. SUM eller MIDDEL).

Du kan dog benytte en såkaldt UDF (User Defined Function), som programmeres i VBA, og som derefter kan benyttes på linje med de normale funktioner. F.eks. denne:

Function DatoStempel() As Date
DatoStempel = DateValue(Now)
End Function

Du skal starte VB-Editoren op (ALT+F11) og indsætte disse tre linjer i et Modul (søg på Google for yderligere info). Herefter kan du benytte denne formel i en hvilken som helst celle i regnearket:

=HVIS(A1=SAND;DatoStempel();"")

Tak!