Hoe voegt u automatisch een tijdstempel in wanneer gegevens in een andere cel worden gewijzigd in Excel?
Stel dat u een werkblad ontvangt waarin u gegevens moet wijzigen in een bepaalde kolom. Na het wijzigen van het werkblad moet u een tijdstempel invoegen, zodat anderen weten welke cellen zijn gewijzigd. Hoe lost u dit op? Dit artikel laat u zien hoe u een huidige tijdstempel kunt invoegen wanneer gegevens in een andere cel veranderen in Excel, zoals in onderstaande afbeelding wordt weergegeven.
Voeg een huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code
Voeg een huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code
Zoals in de onderstaande afbeelding te zien is, vult u automatisch een tijdstempel in kolom E in zodra de bijbehorende cellen in kolom C worden gewijzigd. Volg hiervoor de volgende stappen.
1. Klik met de rechtermuisknop op het bladtabblad van het werkblad dat u wilt wijzigen en voorzien van een tijdstempel, en selecteer vervolgens Code weergeven in het contextmenu.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster van het Microsoft Visual Basic for Applications-venster. Zie afbeelding:
VBA-code: Voeg een huidige tijdstempel in wanneer gegevens in een andere cel veranderen
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End SubOpmerking: In de code betekent het getal 3 dat u gegevens gaat wijzigen in kolom C, en 5 geeft aan dat het tijdstempel wordt ingevuld in kolom E. Pas deze waarden aan op basis van uw behoeften.
3. Druk op de Alt+Q-toetsen om het Microsoft Visual Basic for Applications-venster te sluiten.
Vanaf nu wordt bij elke wijziging in kolom C automatisch een tijdstempel toegevoegd aan de overeenkomstige cel in kolom E, zoals te zien is in de onderstaande afbeelding.
Tip.Datumkiezer. Met de Datum invoegen-functie van Kutools voor Excel voegt u in een handomdraai een datum in het gewenste formaat in een geselecteerde cel in.
Download en probeer het nu! (30 dagen gratis proefversie)
Gerelateerde artikelen:
- Hoe voegt u een tijdstempel van de laatste opslag toe aan een werkblad in Excel?
- Hoe voeg je een tijdstempel in een specifieke cel in wanneer een macro in Excel wordt uitgevoerd?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins