Snel en automatisch Datum invoegen en tijdstempel invoegen in Excel

In Excel is het invoegen van een datum en tijdstempel een standaardhandeling. In deze handleiding beschrijf ik verschillende methoden — handmatig én automatisch — om datums en tijdstempels in Excel-cellen in te voegen, ondersteund met praktische voorbeelden.

Datum invoegen en tijdstempel met sneltoetsen

Datum invoegen en tijdstempel met formule

Formule om automatisch een tijdstempel in te voegen bij het invoeren van gegevens in een andere kolom

VBA om automatisch een tijdstempel in te voegen bij het invoeren van gegevens in een andere kolom

---

Als u in slechts een paar cellen een datum en tijdstempel wilt invoegen, kunt u dit handmatig doen met behulp van sneltoetsen.

Huidige datum invoegen:Ctrl+;

Huidige tijd invoegen:Shift+Ctrl+;

Zie schermafbeelding:

Tips:

1. U kunt de resultaten opmaken als datum- of tijdnotatie, precies zoals u dat nodig hebt in het Celopmaak instellen-venster.

2. Als u Kutools voor Excel hebt, kunt u de huidige datum of andere datums invoegen in een specifieke datumnotatie zoals u dat nodig hebt, met de Datum invoegen-functie. Klik hier om gratis te downloaden

---

Wilt u een datum of tijdstempel invoegen die automatisch wordt bijgewerkt? Gebruik dan de onderstaande formules.

Huidige datum invoegen

=VANDAAG()

Druk op Enter en de huidige datum wordt in de cel ingevoegd.

Huidige tijd invoegen：

=NU()

Druk op Enter en de huidige datum en tijd worden in de cel ingevoegd.

Tips:

1. U kunt de resultaten opmaken als datum- of tijdnotatie, afhankelijk van uw behoeften, in het Celopmaak instellen-venster. Als u bijvoorbeeld alleen de huidige tijd wilt weergeven, moet u de cel opmaken als Tijd nadat u de =NU()-formule hebt gebruikt.

2. Als u de huidige datum en tijd wilt invoegen in de koptekst of voettekst van een werkblad, kunt u de Werkboekinformatie invoegen-functie van Kutools voor Excel gebruiken om dit snel te doen. Klik hier om gratis te downloaden

---

Stel dat u twee kolommen heeft: kolom A en kolom B. Hoe voert u automatisch een tijdstempel in kolom B in zodra u gegevens invoert in kolom A?

Automatisch tijdstempel invoeren bij gegevensinvoer

1. Klik eerst op Bestand > Opties om het Excel-opties-venster te openen. Kies Formules in het linkerdeelvenster en vink vervolgens Iteratieve berekening inschakelen aan in de groep Berekeningsopties. Klik daarna op OK.

2. Typ in kolom B, bijvoorbeeld in cel B1, de volgende formule:

=IF(A1<>"",IF(B1<>„",B1,NOW()),„")

Sleep daarna de vulgreep naar beneden naar de gewenste cellen.

3. Maak de formulecellen daarna op met de gewenste datum/tijd-notatie via het Celopmaak instellen-venster: houd de formulecellen geselecteerd, klik met de rechtermuisknop om het contextmenu te openen en kies Celopmaak instellen. Het Celopmaak instellen-venster verschijnt. Ga naar het tabblad Aangepastonder de sectie Getal, typ de gewenste notatie in het Type-tekstvak en klik op OK.

Vanaf nu wordt bij het invoeren van gegevens in kolom A automatisch de huidige datum en tijd ingevoegd in kolom B.

Automatisch tijdstempel invoegen en bijwerken wanneer een cel in een andere kolom verandert

Als u automatisch een tijdstempel wilt invoegen bij celinvoer en tegelijkertijd wilt dat het tijdstempel wordt bijgewerkt wanneer de invoer wijzigt, kunt u de volgende formule gebruiken:

=IF(A1<>„",IF(AND(B1<>"",CELL(„address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL(„address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),„")

A1 is de cel waarin u uw gegevens invoert; B1 is de formulecel waarin het tijdstempel automatisch wordt ingevoegd.

Sleep de vulgreep naar beneden naar de cellen die u wilt gebruiken.

Formatteer de formulecellen daarna naar de gewenste datum/tijd-notatie via het Celopmaak instellen-venster: houd de formulecellen geselecteerd, klik met de rechtermuisknop om het contextmenu te openen en kies Celopmaak instellen. Het Celopmaak instellen-venster verschijnt. Ga naar het tabblad Aangepast onder de sectie Getal, typ de gewenste notatie in het Type-tekstvak en klik op OK.

---

Als u bekend bent met VBA-code, kunt u het volgende doen:

1. Klik met de rechtermuisknop op het werkbladtabblad dat u gebruikt en kies Code weergeven in het contextmenu.

2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande code.

VBA: Automatisch tijdstempel invoegen

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

3. Sla deze code vervolgens op. Vanaf dat moment wordt telkens wanneer u gegevens invoert of wijzigt in kolom A, automatisch een nieuw tijdstempel toegevoegd in kolom B.

Opmerking: u kunt kolommen A en B en de tijdnotatie mm/dd/jjjj uu:mm:ss in de VBA-code aanpassen aan uw eigen situatie.

Als u de gedefinieerde functie wilt gebruiken, gaat u als volgt te werk:

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module om een lege module in te voegen.

2. Plak de onderstaande code in de nieuwe module, sla deze op en keer terug naar het werkblad.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

3. Typ in de cel waarin u het tijdstempel wilt invoegen de volgende formule:

=FormatDate(F1)

F1 is de cel waarin u gegevens invoert of wijzigt. Sleep vervolgens de vulgreep naar beneden naar de gewenste cellen.

De huidige datum en tijd worden nu ingevoegd of bijgewerkt zodra cel F1 gegevens bevat.

---