Note: The other languages of the website are Google-translated. Back to English

Hoe de huidige tijdstempel invoegen wanneer gegevens in een andere cel in Excel veranderen?

Stel dat u een werkblad ontvangt waarin u gegevens in een bepaalde kolom moet wijzigen. En nadat u het werkblad hebt gewijzigd, moet u het gewijzigde tijdstempel invoegen om anderen te laten weten welke cellen zijn gewijzigd. Hoe ga je ermee om? Dit artikel laat u zien hoe u het huidige tijdstempel invoegt wanneer gegevens in een andere cel in Excel veranderen, zoals onderstaand screenshot.

Voeg het huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code


Voeg het huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code

Zoals onderstaand screenshot laat zien, moet u het tijdstempel in kolom E invullen als de overeenkomstige cellen in kolom C worden gewijzigd. Ga als volgt te werk.

1. In het werkblad dat u moet wijzigen en markeren met tijdstempel, klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. Kopieer en plak vervolgens de onderstaande VBA-code in het Code venster van de Microsoft Visual Basic voor toepassingen venster. Zie screenshot:

VBA-code: voeg de 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 Sub

Opmerking:: In de code betekent nummer 3 dat u gegevens in kolom C gaat wijzigen, en 5 geeft aan dat het tijdstempel wordt ingevuld in kolom E. Wijzig deze op basis van uw behoeften.

3. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

Vanaf nu wordt bij het wijzigen van gegevens in kolom C het tijdstempel ingevuld in de overeenkomstige cellen in kolom E, zoals onderstaand screenshot.

Tip. Datumkiezer. De Datum invoegen nut van Kutools for Excel helpt u om snel een datum met een opgegeven datumnotatie in een geselecteerde cel in te voegen.
Download en probeer het nu! (

-dag vrij parcours)


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Comments (57)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, De bovenstaande formule is handig voor het bijwerken van de tijdstempel van één cel. Ex: als we gegevens in de 3e cel invoeren, wordt de tijdstempel automatisch bijgewerkt in de 5e cel. Gelieve advies voor meerdere cel update. Bijv: als we gegevens invoeren in de 3e cel, wordt de tijdstempel automatisch bijgewerkt in de 5e cel en als we de 4e cel invoeren, wordt deze bijgewerkt in de 6e cel.
Deze opmerking is gemaakt door de moderator op de site
Ik ben ook geïnteresseerd in deze exacte vraag. Heb je een antwoord gevonden? Zal mijn commentaar hierop de aandacht van iemand anders vestigen op de vraag?!
Deze opmerking is gemaakt door de moderator op de site
Ik plak meerdere rijen en kolommen aan gegevens (in één keer en altijd op hetzelfde moment). ik wil alleen dat de tijdstempel in één cel wordt weergegeven. met andere woorden, wanneer cel C9 verandert (de linkerbovenhoek van mijn gegevens), geef dan de tijd weer in cel A1. alle hulp zou zeer op prijs worden gesteld!
Deze opmerking is gemaakt door de moderator op de site
hoe kunnen we het tijdformaat vergrendelen ... want het wordt elke keer bijgewerkt en voegt datum en tijd in.
Deze opmerking is gemaakt door de moderator op de site
Ik maak een werkblad in Excel waar ik de begin- en eindtijd van een bepaalde transactie wil volgen met behulp van een tijdstempel. Een kolom toont ook de tijdsduur. Zie onderstaande afbeelding. Kan iemand mij helpen? Afbeelding hieronder.

Ik heb 2 VBA-codes gevonden die tijdstempels registreren. Ik weet echter niet hoe ik ze moet samenvoegen, dus ze zullen in dit blad werken:


Code 1 . Het toont een tijdstempel in de kolom "Starttijd" (B4) wanneer u een transactienummer invoert in de kolom "Case-ID" (A4).


Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Bij fout Ga naar handler
Als Target.Column = 1 en Target.Value <> "" Dan
Application.EnableEvents = False
Target.Offset(0, 1) = Formaat(Now(), "mm/dd/jjjj UU:mm:ss")
Application.EnableEvents = Waar
End If
Verwerker:
End Sub


Code 2. Het toont een tijdstempel in de kolom "Eindtijd" (D4) als een selectie uit een vervolgkeuzelijst in de kolom "Status" (C4) is geselecteerd.


Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xCellKolom als geheel getal
Dim xTimeKolom als geheel getal
Dim xRow, xCol als geheel getal
xCelKolom = 3
xTijdKolom = 4
xRij = Doel.Rij
xKol = Doel.Kolom
Als Target.Text <> "" Dan
Als xKol = xCelKolom Dan
Cellen(xRij, xTimeColumn) = Nu()
End If
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste chia,
Heb je afbeelding niet gezien. Klik op de onderstaande knop Bestanden uploaden om uw foto te uploaden.
Deze opmerking is gemaakt door de moderator op de site
Wat is de code als ik meerdere cellen afzonderlijk in hetzelfde werkblad wil voorzien van een tijdstempel?
Voorbeeld: Wijziging in kolom 3, tijdstempel in kolom 5. Wijziging in kolom 10, tijdstempel in kolom 11. Wijziging in kolom 13, tijdstempel in kolom 14.
xCelKolom = 3
xTijdKolom = 5
Deze opmerking is gemaakt door de moderator op de site
Lieve Mary,
De volgende VBA-code kan u helpen. Bedankt voor je reactie.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim ik zo lang
Dim J zo lang
Dim xCols zo lang
Dim xSRg als bereik
Dim xRgEx als bereik
Dim xSRgArea als bereik
Dim xNextArea als bereik
On Error Resume Next
Application.EnableEvents = False
Stel xSRg = Unie in (Bereik ("C:C"), Bereik ("E:E"), Bereik ("J:K"), Bereik ("M:N"))
Stel xRgEx = Intersect (xSRg, Target) in
Als xRgEx niets is, ga dan naar ExitSub
Voor I = 1 Tot xSRg.Areas.Count
J = ik
Stel xSRgArea = xSRg.Areas.Item (I) in
Als xRgEx.Kolom = xSRgArea(1).Kolom Dan
xCols = xSRgArea.Columns.Count
Als xKol = 1 Dan
Stel xNextArea = xSRg.Areas.Item in (J + 1)
Als xNextArea niets is, dan
Ga naar AfsluitenSub
ElseIf xNextArea.Columns.Count = 1 Dan
xNextArea(xRgEx.Rij).Waarde = Nu()
Afsluiten voor
End If
AndersAls xKol. = 2 Dan
xSRgArea.Columns(2).Rijen(xRgEx.Rij).Waarde = Nu()
Afsluiten voor
End If
End If
Volgende
ExitSub:
Application.EnableEvents = Waar
End Sub
Deze opmerking is gemaakt door de moderator op de site
Kunt u aangeven wat er moet worden bijgewerkt om het specifiek te maken voor een andere spreadsheet? Bijvoorbeeld veranderingen in C-tijdstempel in E, veranderingen in G-tijdstempel in I, veranderingen in O-tijdstempel in Q.
Deze opmerking is gemaakt door de moderator op de site
Ik heb eenvoudig de eerste hierboven genoemde code aan elkaar geregen, waarbij alle variabelen zijn gewijzigd van VAR in VAR1/VAR2/VAR3 enz.
Deze opmerking is gemaakt door de moderator op de site
Hallo, kan worden gedaan als er waarden zijn gewijzigd en de tijdstempel alleen in een bepaalde cel zoals A1 . wordt bijgewerkt
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Als u altijd de tijdstempel in cel A1 wilt weergeven als er waarden in een bepaald bereik worden gewijzigd. De volgende VBA-code kan helpen.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRg als bereik
On Error Resume Next
Stel xRg = Intersect (Doel, Bereik ("B1:D4")) in
Als xRg niets is, sluit dan Sub af
Bereik ("A1"). Waarde = Nu ()
End Sub
Deze opmerking is gemaakt door de moderator op de site
hallo Crystal, dit is echt goed, hoe kan ik de tijdstempel in elke overeenkomstige rij wijzigen wanneer een cel uit het cellenbereik in de respectieve rij verandert. Zoals A2 zou moeten worden bijgewerkt met een tijdstempel wanneer er wijzigingen worden aangebracht tussen B2 en H2 enzovoort met A3, A4 enz.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een database in Excel die ik nodig heb om bij te houden wat er is veranderd.
Is het mogelijk om de code zo aan te passen dat als er wijzigingen worden aangebracht in blad 1, het de gewijzigde cel in blad 2 zal dupliceren en een tijdstempel ernaast zal geven?
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Sorry kan daar niet bij helpen. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hartelijk dank hiervoor! Ik gebruik schuifknoppen om elke keer dat ik een taak voltooi 1 aan mijn totaal toe te voegen, maar macro's registreren geen wijzigingen aan de knoppen. Na wat meer onderzoek te hebben gedaan, ben ik erachter gekomen hoe ik een macro aan mijn bedieningsknoppen kan toewijzen en nu kan ik mijn wijzigingen volgen !!!! Ik maakte het ingewikkelder dan nodig is, dit is wat ik eindigde met:


Subtijdstempel()
'
' Tijdstempelmacro
' Tijdstempel op scroll-knoppen
'
'
Bereik ("j2"). Waarde = Nu ()

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, dit werkt perfect als ik de cel handmatig verander, wanneer ik informatie kopieer en plak, werkt niet. Ik probeer deze tijdstempel te hebben elke keer dat iemand nieuwe informatie plakt. In plaats van celinformatie één voor één te veranderen, wil ik het gedrag vastleggen wanneer de gegevens in bulk worden geplakt voor meerdere cellen. Weet iemand wat ik moet doen?


Hartelijk dank,
Deze opmerking is gemaakt door de moderator op de site
heel erg bedankt hiervoor, maar de tijdstempel verandert alleen als de waarde in de cel "handmatig" wordt gewijzigd. Als het wordt gewijzigd vanwege een wijziging in een andere cel en de waarde verandert als onderdeel van een formule, is er geen tijdstempel. Heeft u hier een oplossing voor? Met dank! Dennis
Deze opmerking is gemaakt door de moderator op de site
Beste Dennis,
De code is bijgewerkt en het probleem is opgelost. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hoi,

Dit is precies wat ik zocht! Ik vroeg me echter af of je me kunt helpen om het te laten werken met een beveiligd werkblad. Het lijkt alleen te werken op een onbeschermde (wanneer de tijdstempel wordt bijgewerkt vanwege een waardeverandering als onderdeel van een formule, vergelijkbaar met het verzoek van Dennis).

Hartelijk bedankt! Bassel
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Dit kan ook werken op een beveiligd werkblad. U moet de gewijzigde cellen en de tijdstempelcellen van tevoren opmaken in de ontgrendelde status voordat u het werkblad beveiligt. Probeer het alstublieft nog een keer. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hoi,


Is het mogelijk om de code te wijzigen zodat wijzigingen in meerdere kolommen een nieuwe tijdstempel in dezelfde cel zouden genereren? Dwz ik maak een bewerking in een van de cellen A3, B3 of C3 en de tijdstempel wordt alleen in C4 bijgewerkt?


Is het ook mogelijk om de code alleen van toepassing te laten zijn op een specifiek bereik binnen een blad?


Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hallo Alec
Probeer de onderstaande VBA-code eens. Bedankt voor je reactie.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRRg, xRg als bereik
Dim xRgArray als variant
Dim xStrCell als tekenreeks
Dim xSCRg als bereik
Dim xStrResultaat als string
xRgArray = Array ("A1:C10")
xStrCell = "A3, B3, C3"
xStrResult = "C4"
On Error Resume Next

Als Target.Cells.count > 1 Sub afsluiten
Voor xFNum = LBound(xRgArray) Naar UBound(xRgArray)
Als xRgArray(xFNum) <> "" Dan
Stel xRg = bereik in (xRgArray(xFNum))
Als niet xRg niets is, dan
Stel xSCRg = Null in
Stel xSCRg = xRg.Bereik (xStrCell) in
xSCRg.Selecteer
Als niet xSCRg niets is, dan
Als niet snijden (xSCRg, doel) is niets dan
Stel xRRg = xRg.Bereik in (xStrResultaat)
Als xRRg niets is, sluit dan Sub af
xRRg.Waarde = Nu()
Afsluiten voor
End If
End If
End If
End If
Volgende xFNum
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hé, hopelijk zie je dit nog!!! Ik gebruik de onderstaande code voor een tijdstempelupdate in C6 wanneer C5 wordt bijgewerkt. Het probleem is dat wanneer ik me in de rest van het werkblad bevind, telkens als ik op enter of tab druk, ik terugspring naar C5. Nog ideeën?

Dim xRRg, xRg als bereik
Dim xRgArray als variant
Dim xStrCell als tekenreeks
Dim xSCRg als bereik
Dim xStrResultaat als string
xRgArray = Array ("C5:C6")
xStrCell = "C5"
xStrResult = "C6"
On Error Resume Next

Als Target.Cells.Count > 1 Sub afsluiten
Voor xFNum = LBound(xRgArray) Naar UBound(xRgArray)
Als xRgArray(xFNum) <> "" Dan
Stel xRg = bereik in (xRgArray(xFNum))
Als niet xRg niets is, dan
Stel xSCRg = Null in
Stel xSCRg = xRg.Bereik (xStrCell) in
xSCRg.Selecteer
Als niet xSCRg niets is, dan
Als niet snijden (xSCRg, doel) is niets dan
Stel xRRg = xRg.Bereik in (xStrResultaat)
Als xRRg niets is, sluit dan Sub af
xRRg.Waarde = Nu()
Afsluiten voor
End If
End If
End If
End If
Volgende xFNum
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hé, dit is ongeveer hetzelfde als wat ik nodig heb, ik zou graag willen dat een tijdstempel wordt bijgewerkt in kolom AG wanneer cellen tussen A en AH worden bijgewerkt.
Ik heb de bovenstaande code geprobeerd, maar heb geen geluk gehad.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een project waar ik aan werk dat ik regelmatig update. Het is meestal alleen bedoeld om de informatie van mijn werknemer bij te houden, zoals telefoonnummers, het verlopen van het rijbewijs, enz. Omdat ik het zo vaak bijwerk, wil ik een automatisch tijdstempel dat bovenaan of onderaan mijn werkblad staat en dat elke keer dat ik update informatie OVERAL op de spreadsheet. Ik gebruik momenteel AN en 1-42, dus ik heb een stempel nodig rond M40. Hoe zou die code eruitzien?
Deze opmerking is gemaakt door de moderator op de site
Open Developer en selecteer in uw werkmap de Workbook en de BeforeSave-gebeurtenis.


Zet in de sub de code: Range("M40").value = Now
Deze opmerking is gemaakt door de moderator op de site
Het toevoegen van de tijdstempel werkt erg goed en is erg handig. Ik krijg echter een foutmelding wanneer ik een rij verwijder, omdat het script de tijdstempel niet kan invoegen in de rij die niet meer bestaat.


Zou fijn zijn als iemand kan adviseren hoe dit op te lossen.
Deze opmerking is gemaakt door de moderator op de site
Hallo Sander,
Er is geen fout opgetreden in mijn geval. Kunt u mij uw Excel-versie vertellen? Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hallo Crystal, dit is echt goed, hoe kan ik de tijdstempel wijzigen in elke overeenkomstige rij wanneer een cel uit het cellenbereik in de respectieve rij verandert. A2 moet bijvoorbeeld worden bijgewerkt met een tijdstempel wanneer er wijzigingen worden aangebracht op de tweede rij tussen B2 en H2 en op dezelfde manier krijgt A3 het tijdstempel wanneer wijzigingen worden aangebracht op B3 naar H3, enzovoort tot de laatste rij.
Deze opmerking is gemaakt door de moderator op de site
Dag iedereen

Bij voorbaat dank voor uw hulp.

Wat moet de code zijn om de huidige tijd in de cel in kolom X bij te werken als er een wijziging is in een cel in die rij? Bijvoorbeeld, elke verandering in waarden op cellen a2 naar w2, dan zou de tijd moeten zijn om te updaten in x2.


Nogmaals bedankt.
Deze opmerking is gemaakt door de moderator op de site
Zou de functionaliteit van de tijdstempel worden omzeild als het Excel-bestand dat u gebruikt, kan worden vernieuwd?
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
De code ondersteunt geen verbindingsgegevens. Excuses voor het ongemak.
Deze opmerking is gemaakt door de moderator op de site
Heren,

Ik ben al een maand op zoek naar een soortgelijke oplossing als deze. Hoewel de bovenstaande oplossing OTM lijkt te zijn, gebruik ik dit voor de aandelenmarkt.
Dus ik heb kolom F waar ik een koop-/verkoopstrategie heb geïmplementeerd en het blad blijft elke minuut verversen. Ik heb kolom T waar ik de tijdstempel wil hebben op basis van de volgende voorwaarden:

(1) Kolom F - Geeft een koop of verkoop aan
(2) Kolom F - Wijzigingen van kopen naar verkopen of verkopen naar kopen
(3) Kolom F - Wijzigingen van kopen/verkopen naar leeg

Hoewel de algemene oplossing die beschikbaar is op het net lijkt te werken (excel-formule), maar wanneer de gegevens worden vernieuwd, slaat deze de huidige tijd op dan de signaaltijd. Voor bijvoorbeeld Als ik een Buy @ 9:15 uur krijg en als de huidige tijd 10:30 is, krijg ik 10:30 uur te zien in de kolom T (Signaaltijd) en niet 9:15 uur.

Alle hulp wordt zeer op prijs gesteld.

Hartelijke groeten
JT
Deze opmerking is gemaakt door de moderator op de site
5/15/19|1:41 PM|John Smith|125B-1|10000000|Equipment|Staff|5/15/19|2:43 PM|Staff

Het bovenstaande bericht toont de gegevens die in een rij worden ingevoerd. Ik zocht hulp bij het bijwerken van de eerste 2 kolommen die een tijdstempel bevatten wanneer de kolom ID (10000000) wordt ingevuld. Zouden indien mogelijk de tijdstempels ook kunnen worden verwijderd als de ID ook wordt verwijderd? Met betrekking tot de laatste 3 kolommen (datum|tijd|personeel) kunnen die tijdstempels worden bijgewerkt wanneer de laatste kolom wordt gevuld met een personeelsnaam. Ik heb geprobeerd met de code te spelen, maar door mijn gebrek aan kennis met VBA kon ik alleen zoveel doen.
Deze opmerking is gemaakt door de moderator op de site
Hallo Kristal,
Ik probeer een functie te maken waarbij als ik een cel in H9: L9 in blad 1 update, de tijdstempel in cel C2 in blad 2 moet worden bijgewerkt.
Nu moet ik dit doen op ongeveer 100 rijen in blad 1 (H10:L10, H11:L11) en de bijbehorende C3, C4 bijwerken .... in blad 2

Alle hulp wordt zeer op prijs gesteld. Proost.!
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL