• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

automatische datum plaatsen in exel

Status
Niet open voor verdere reacties.

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Kan je op de een of andere manier in exel 2003
in een bepaald cel de datum laten komen wanneer
de exel file de laaste keer is aangepast.

Gaat over exel files die niet alle dagen worden aangepast maar wel alle dagen bekeken en of afgedrukt.
Daarom zou ik er graag de datum ergens opzetten wanneer het de laaste keer is aangepast.
Zo kunnen ze zien dat ze met de meest recente versie werken of dat het al een ouder is als ze het hebben afgedrukt.
 
Achter het bewuste blad plaatsen, blad en cel aanpassen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(1).[A1] = Now
End Sub
En in ThisWorkbook.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
 
Achter het bewuste blad plaatsen, blad en cel aanpassen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(1).[A1] = Now
End Sub
En in ThisWorkbook.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Nog maar eens bedankt voor je hulp.
Is me zo gelukt.:thumb:
 
Hier heeft XL een ingebouwde functie voor. Kijk in de VBA-help maar eens bij DocumentProperties
 
Kan je dit ook doen door in voorwaardelijk opmaak een formulle te gebruiken.
Als ik het via vb doe dan duurt het elke keer lang wanneer ik iets invuld dat ik verder kan gaan.

In cel a2 zou de datum in moeten komen van vandaag en dit alleen als er een aanpassing is gebeurt
en niet dat de file gewoon bekeken of afgedrukt wordt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan