Hoe vult u automatisch een datum in een cel in zodra de aangrenzende cel wordt bijgewerkt in Excel?
Soms wilt u, wanneer u een cel in een bepaalde kolom bijwerkt, automatisch de meest recente datum van die update vastleggen. In dit artikel stellen we een VBA-methode voor die dit probleem eenvoudig oplost: zodra u een cel wijzigt, wordt de aangrenzende cel onmiddellijk automatisch gevuld met de huidige datum.
Automatisch de huidige datum invullen in een cel wanneer de aangrenzende cel wordt bijgewerkt met VBA-code
Stel dat de gegevens die u wilt bijwerken zich in kolom B bevinden en dat, zodra u een cel in kolom B wijzigt, automatisch de huidige datum wordt ingevuld in de overeenkomstige cel in kolom A. Zie de afbeelding hieronder:
U kunt de volgende VBA-code uitvoeren om dit probleem op te lossen.
1. Klik met de rechtermuisknop op het werkbladtabblad waarop u automatisch een datum wilt invullen op basis van de bijgewerkte aangrenzende cel en selecteer vervolgens Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications onderstaande VBA-code in het codovenster.
VBA-code: automatisch de huidige datum invullen in een cel wanneer de aangrenzende cel wordt bijgewerkt
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End SubOpmerkingen:
3. Druk tegelijkertijd op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu wordt de aangrenzende cel in kolom A automatisch ingevuld met de huidige datum zodra u een cel in kolom B bijwerkt. Zie de afbeelding hieronder:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe vult u automatisch andere cellen in wanneer u een waarde selecteert uit een Excel-dropdownlijst?
- Hoe werkt automatisch aanvullen wanneer je typt in een Excel-dropdownlijst?
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