[Excel 2007] Huidige datum vastzetten

[Spotter]

Ik ben bezig met een heel eenvoudig registratiedingetje en daarin wil ik automatisch de huidige datum zetten zodra er in een bepaalde cel (zeg A1) een waarde staat. Deze moet daarna (zolang A1 vol is) niet meer veranderen.

Ik heb het geprobeerd met TODAY(), maar zoals verwacht veranderd deze zodra er iets in de sheet veranderd wordt. Formule daarbij was =IF(ISBLANK(A1);"";TODAY()). Ctrl+; geeft wel het gewenste effect (zet de datum in de cel) maar moet weer handmatig en ik wil het eigenlijk automatiseren. Ik heb nog geen methode gevonden op automatisch de datum in een cel te zetten terwijl ik het idee heb dat dit mogelijk moet zijn.

Iemand die dit toevallig weet of meteen zegt 'dit kan niet'?

[Gomez12]

Met een vba-macro op het onchange event kijken welke rij het is, dan in die rij met vba de datum zetten. Dan is het gewoon een waarde.

[Spotter]

Gomez12 schreef op donderdag 07 februari 2008 @ 19:37:
Met een vba-macro op het onchange event kijken welke rij het is, dan in die rij met vba de datum zetten. Dan is het gewoon een waarde.

Dat ik daar niet aan gedacht heb . Wordt wel weer VBA leren, maar je moet er wat voor overhebben . Dankjewel!

[Anoniem: 290415]

mmm, ik zit met hetzelfde probleem..
heb al zitten zoeken naar een deftige oplossing in VBA
maar kgeraak er niet uit.
iemand die mijn de code kan bezorgen?

alvast bedankt!!!!

[Tanuki]

Anoniem: 290415 schreef op woensdag 15 april 2009 @ 18:50:
mmm, ik zit met hetzelfde probleem..
heb al zitten zoeken naar een deftige oplossing in VBA
maar kgeraak er niet uit.
iemand die mijn de code kan bezorgen?

alvast bedankt!!!!

Een beetje zelf klooien kan toch ook?

Met Range() kun je een cel opzoeken. Range("A1") geeft dus cel A1 terug. Dan kun je met de Value property kijken of die leeg is en zoja.. via de Value property de datum van vandaag er in zetten.

De volgende keer dat die check wordt uitgevoerd is de cel niet meer leg en zal de datum er nooit opnieuw in gezet worden.

[Anoniem: 120235]

Anoniem: 290415 schreef op woensdag 15 april 2009 @ 18:50:
mmm, ik zit met hetzelfde probleem..
heb al zitten zoeken naar een deftige oplossing in VBA
maar kgeraak er niet uit.
iemand die mijn de code kan bezorgen?

alvast bedankt!!!!

Als je hebt zitten zoeken in VBA lijkt het volgende mij toch één van de eerste dingen die je probeert...

Visual Basic:

Function fillInDate(checkCell)
    If checkCell <> "" Then
        fillInDate = Now()
    Else
        fillInDate = ""
    End If
End Function

Alternatief zou je ook met Worksheet_Change events kunnen werken.