Hoe sorteert u datums automatisch bij invoer of wijziging in Excel?
In Excel helpt de Sorteer-functie u om datums te sorteren in oplopende of aflopende volgorde, precies zoals u dat nodig heeft. Maar deze functie is niet dynamisch: zodra u de datums hebt gesorteerd en daarna nieuwe datums toevoegt, moet u handmatig opnieuw sorteren. Bestaan er snelle en slimme manieren om datums automatisch te sorteren telkens wanneer u nieuwe gegevens invoert in een werkblad?
Automatisch sorteren van datums bij invoer of wijziging met formule
Automatisch sorteren van datums bij invoer of wijziging met VBA-code
Automatisch sorteren van datums bij invoer of wijziging met formule
Als voorbeeld: als de oorspronkelijke datums zich bevinden in kolom A, dan kan de volgende formule u helpen om de datums of andere tekstreeksen automatisch te sorteren naar een nieuwe hulpkolom op basis van de kolom die u wilt sorteren. Volg deze stappen:
1. Voer deze formule in:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,„<="&$A$2:$A$15),0)) in een lege cel naast uw datumkolom, bijvoorbeeld C2, en druk vervolgens tegelijkertijd op Ctrl + Shift + Enter om een numerieke reeks te krijgen. Sleep daarna de vulgreep naar de gewenste cellen. Zie schermafbeelding:
Opmerking: In de bovenstaande formule is A2:A15 uw oorspronkelijke datumreeks die automatisch gesorteerd moet worden.
2. Formatteer de getallen vervolgens als datumnotatie door te klikken op Korte datum in de Algemeen-keuzelijst onder het tabblad Start. Zie schermafbeelding:
3. De opeenvolgende nummers zijn nu omgezet naar datumnotatie en de oorspronkelijke datums zijn ook gesorteerd. Zie schermafbeelding:
4. Vanaf nu worden de datums in kolom C automatisch oplopend gesorteerd zodra u een datum invoert of wijzigt in kolom A. Zie schermafbeelding:
Automatisch sorteren van datums bij invoer of wijziging met VBA-code
De volgende VBA-code helpt u automatisch datums te sorteren in de oorspronkelijke kolom zodra u een datum invoert of wijzigt, precies zoals u dat wilt.
1. Ga naar het werkblad waarin u de datums automatisch wilt sorteren bij invoer of wijziging.
2. Klik met de rechtermuisknop op het bladtabblad en selecteer Code weergeven in het contextmenu. Plak in het venster Microsoft Visual Basic for Applications de volgende code in het lege Module-venster. Zie schermafbeelding:
VBA-code: automatisch sorteren bij invoer of wijziging van datum:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Opmerking: In de bovenstaande code worden de ingevoerde datums automatisch gesorteerd in kolom A. U kunt A1 en A2 aanpassen naar de cellen van uw keuze.
3. Vanaf nu worden de datums automatisch in oplopende volgorde gesorteerd zodra u een datum invoert in kolom A.
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