[Excel] =Vandaag() niet meer herberekenen

Pagina: 1
Acties:
  • 313 views sinds 30-01-2008
  • Reageer

  • Supermario16
  • Registratie: Mei 2004
  • Laatst online: 17-07 20:57
Ik ben voor mijn werk bezig een (simpel) formulier te maken welke gebruikt wordt als planning. Deze wordt per dag ingevuld, en opgeslagen. Deze wordt echter een week later weer geopenend om nog extra gegevens (welke op de dag zelf niet beschikbaar zijn) toe te voegen, waardoor =vandaag() weer de huidige datum invuld.

Nu zal dit probleem niet zo heel lastig zijn, maar heb al flink wat afgezocht maar kan eigenlijk niets vinden.
code:
1
2
3
4
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A2").Value = Now

End Sub

Dit zorgt ervoor dat een before save een nieuwe datum genereert, maar ik moet het document (natuurlijk) ook gewoon weer kunnen opslaan.

Iemand ideeen?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

Bouw een check in of het veld al is gevuld :Y)

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • Supermario16
  • Registratie: Mei 2004
  • Laatst online: 17-07 20:57
Ja het veld is ingevuld. Maar het moet meer een functie zijn dat hij dat gegeven maar 1x herberekend? (ofzo iets)

Ma bedoeld je nu dat ik een check moet maken op het invullen van het veld, en indien dit 1x gedaan is dan.....? (vergrendel ik het ofzo?)

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Niet vergrendelen maar gewoon niet meer invullen:
code:
1
2
3
4
5
6
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if Range("A2").Value = '' then
  Range("A2").Value = Now
end if

End Sub
Ik spreek geen VB, maar het is een idee.

[ Voor 8% gewijzigd door jelmervos op 09-07-2007 07:39 ]

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • onkl
  • Registratie: Oktober 2002
  • Laatst online: 11:03
code:
1
2
3
4
5
6
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if Range("A2").Value = "" then
  Range("A2").Value = Now
end if

End Sub
Inderdaad. Je moet alleen dubbele aanhalingstekens gebruiken.