Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik de datum automatisch sorteren wanneer de datum wordt ingevoerd of gewijzigd in Excel?

In Excel, de Soort functie kan u helpen om de datum in stijgende of dalende volgorde te sorteren als u nodig hebt. Maar het is niet dynamisch, als je de datum hebt gesorteerd en er een nieuwe datum aan hebt toegevoegd, zou je hem opnieuw moeten sorteren. Zijn er goede en snelle manieren om automatisch de datum te sorteren wanneer je elke keer een nieuwe datum invoert in een werkblad?

Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule

Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met VBA-code


pijl blauwe rechterbel Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule


Bijvoorbeeld, de oorspronkelijke datum in kolom A, de volgende formule kan u helpen om de datum of andere tekstreeksen in een nieuwe helperkolom automatisch te sorteren op basis van de kolom die u wilt sorteren. Ga hiervoor als volgt te werk:

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 je datumkolom, C2, bijvoorbeeld, en druk vervolgens op Ctrl + Shift + Enter toetsen samen, en u krijgt een nummerreeks en sleept u vervolgens de vulgreep naar de cellen die u wilt gebruiken, zie screenshot:

Notes: In bovenstaande formule: A2: A15 is uw oorspronkelijke datumbereik dat u automatisch wilt sorteren.

doc autosort op datum 1

2. Formatteer de nummers vervolgens als datumformaat door op te klikken Korte datum van de Algemeen drop-down lijst onder de Home tab, zie screenshot:

doc autosort op datum 2

3. Vervolgens zijn de volgnummers geconverteerd naar datumnotatie en is de oorspronkelijke datum ook gesorteerd, zie screenshot:

doc autosort op datum 3

4. Vanaf nu, wanneer u een nieuwe datum invoert of de datum in kolom A wijzigt, wordt de datum in kolom C automatisch in stijgende volgorde gesorteerd, zie screenshot:

doc autosort op datum 4


pijl blauwe rechterbel Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met VBA-code

De volgende VBA-code kan u helpen om de datum in de oorspronkelijke kolom automatisch te sorteren wanneer u een nieuwe datum invoert of de datum naar behoefte wijzigt.

1. Ga naar het werkblad waarvan u de datum automatisch wilt sorteren wanneer u een datum invoert of wijzigt.

2. Klik met de rechtermuisknop op het bladentabblad en selecteer Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de blanco module venster, zie screenshot:

VBA-code: automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
    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

doc autosort op datum 6

Notes: In de bovenstaande code wordt de ingevoerde datum automatisch gesorteerd in kolom A, die u kunt wijzigen A1 en A2 naar je eigen cellen als je nodig hebt.

3. Vanaf nu, wanneer u de datum in kolom A invoert, wordt de datum automatisch oplopend gesorteerd.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ross · 5 months ago
    With the VBA code, I have copy and pasted the above but wish for the dates in column F to be the values by which the data is sorted. I've changed the range values to F2 and F3500 (the size of the spreadsheet where row 1 is titles), but it still sorts by the dates in column A. Can somebody help me please?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Ross,
      When applying the code to column F, you should change some references to your need as below code:
      Private Sub Worksheet_Change(ByVal Target As Range)
      'Updateby Extendoffice 20160606
      On Error Resume Next
      If Application.Intersect(Target, Application.Columns(6)) Is Nothing Then Exit Sub
      If Target.Count > 1 Then Exit Sub
      Range("F1").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlYes, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      End Sub

      Please try, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Hector · 6 months ago
    Is there a particular formula to keep the cells following the sorted date? It would be nice to organize by date but keep the entire row of information. Any help would be much appreciated.
  • To post as a guest, your comment is unpublished.
    Robert Smith · 11 months ago
    I mad a checkbook register and it works but I want to figure out how to make my entry’s to go into date order. Any help would be appreciated. I’m still learning excel.
  • To post as a guest, your comment is unpublished.
    KC · 1 years ago
    In addition to the duplicate dates, is there also a way to include multiple columns of data when it sorts? I need it to include multiple columns and sort them all together with the expiration dates.
  • To post as a guest, your comment is unpublished.
    Bo · 1 years ago
    how can I do this same sorting calculation but from newest date to oldest? Currently it is Oldest to Newest. Flipping the < sign isn't enough and beyond that I don't have a strong enough understanding of what it is doing. Also I think what may be happening is excel automatically works top to bottom causing difficulties.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Bo,

      To auto sort the date from newest to oldest, you just need to change the <= to >= in the above formula as follows:
      =INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,">="&$A$2:$A$15),0))
      After inserting this formula, please remember to press Ctrl + Shift + Enter keys together to get the correct result.
      Please try it.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    What if there is a duplicate date in the list? And I want both numbers to show up.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Ryan,

      To sort the date with duplicate ones, you should apply the following formula:

      =IFERROR(INDEX($A$2:$A$11,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$11,"<="&$A$2:$A$11),0)),IF(ROWS($A$2:A2)<ROWS($A$2:$A$11),B3,""))

      Please remember to press Shift + Ctrl + Enter keys together.

      Hope it can help you, thank you!
  • To post as a guest, your comment is unpublished.
    UrLoser · 2 years ago
    U forgot to mention the formula is array and you need to ctrl+Shift+ enter. Luckily you had a screenshot or your page would be a waste of cyberspace