Datums vastzetten

[Knuffelbeer]

Ik probeer een activiteiten kalender te maken voor onze dansclub.
De datum wordt aangemaakt met de functie nu() dit heeft natuurlijk tot gevolg dat een dag later de datum aangepast wordt.
Kan deze datum vastgezet worden?

Dank voor alle hulp

 

[hoogteijling]

Er is geen formule voor, wel een VBA code

Private Sub Workbook_Open()
If ActiveWorkbook.ActiveSheet.Range("A1") = "" Then
ActiveWorkbook.ActiveSheet.Range("A1").Value = Format(Date, "dd mm yyyy")
End If
End Sub

Deze code vult alleen de datum in wanneer de cel A1 leeg is, wanneer deze al is ingevuld doet de code niets.

groeten Marcel

 

[Cobbe]

Jammer maar dat gaat niet werken vermits er een formule in A1 staat (is dus niet leeg).

De volgende code checkt of er een datum in de cel staat en fixeert die bij het sluiten van het bestand.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If IsDate(ActiveSheet.Range("A1").Value) = True Then
   ActiveSheet.Range("A1") = ActiveSheet.Range("A1")
End If
End Sub

 

[Knuffelbeer]

Bedankt mensen hiermee kan ik aan de slag :thumb:

 

[Knuffelbeer]

Opgelost

Bedankt beste mensen de oplossing van cobbe is perfect.

Voorspoedig 2012 voor iedereen