Hoe registreert u gewijzigde waarden in een cel in Excel?
Hoe registreert u elke gewijzigde waarde van een vaak veranderende cel in Excel? Stel: de oorspronkelijke waarde in cel C2 is 100. Zodra u die wijzigt naar 200, verschijnt de vorige waarde — 100 — automatisch in cel D2 ter registratie. Wanneer u 200 vervolgens aanpast naar 300, wordt 200 vastgelegd in cel D3; bij een latere wijziging van 300 naar 400 verschijnt 300 in D4, enzovoort. De methode in dit artikel maakt dit mogelijk.
Veranderende waarden in een cel registreren met VBA-code
Veranderende waarden in een cel registreren met VBA-code
De onderstaande VBA-code helpt u elke wijziging in een celwaarde in Excel automatisch te registreren. Volg hiervoor de volgende stappen.
1. Klik met de rechtermuisknop op het bladtabblad van het werkblad dat de cel bevat waarvan u de veranderende waarden wilt registreren, en klik vervolgens in het contextmenu op Code weergeven. Zie screenshot:
2. Vervolgens wordt het venster Microsoft Visual Basic for Applications geopend. Kopieer de onderstaande VBA-code naar het codovenster.
VBA-code: veranderende waarden in een cel registreren
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End SubOpmerkingen: In de code is C2 de cel waarvan u alle gewijzigde waarden wilt bijhouden. D2 is de cel waarin de eerste gewijzigde waarde van C2 wordt opgeslagen.
3. Druk op de toetsencombinatie Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu wordt telkens wanneer u de waarde in cel C2 wijzigt, de vorige waarde automatisch geregistreerd in D2 en in de cellen daaronder.
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