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

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

In Excel is het Sorteer functie kan u helpen om de datum in oplopende of aflopende volgorde te sorteren als u dat wilt. Maar het is niet dynamisch, als je de datum hebt gesorteerd en er vervolgens een nieuwe datum aan hebt toegevoegd, zou je deze opnieuw moeten sorteren. Zijn er goede en snelle manieren om de datum automatisch te sorteren wanneer u elke keer een nieuwe datum in een werkblad invoert?

Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule

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


pijl blauw rechts bel Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met formule

De oorspronkelijke datum in kolom A, de volgende formule kan u bijvoorbeeld helpen om de datum of andere tekstreeksen in een nieuwe hulpkolom automatisch te sorteren op basis van de kolom die u wilt sorteren, doe dit als volgt:

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 je krijgt een cijferreeks, sleep vervolgens de vulgreep naar de cellen die je wilt gebruiken, zie screenshot:

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

doc autosort op datum 1

2. Formatteer vervolgens de cijfers als datumnotatie door op te klikken Korte datum van de Algemeen vervolgkeuzelijst onder de Home tabblad, 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 oplopende volgorde gesorteerd, zie screenshot:

doc autosort op datum 4


pijl blauw rechts bel Datum automatisch sorteren wanneer datum wordt ingevoerd of gewijzigd met VBA-code

De volgende VBA-code kan u helpen om de datum automatisch in de oorspronkelijke kolom 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 de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module venster, zie screenshot:

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

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

doc autosort op datum 6

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

3. Als u vanaf nu de datum in kolom A invoert, wordt de datum automatisch oplopend gesorteerd.


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
Heb je vragen? Stel ze hier. (15)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
U bent vergeten te vermelden dat de formule array is en dat u ctrl+Shift+ enter moet gebruiken. Gelukkig had je een screenshot, anders zou je pagina een verspilling van cyberspace zijn
Deze opmerking is gemaakt door de moderator op de site
Wat als er een dubbele datum in de lijst staat? En ik wil dat beide nummers verschijnen.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Ryan,

Om de datum met dubbele te sorteren, moet u de volgende formule toepassen:

=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,""))

Vergeet niet om de Shift + Ctrl + Enter-toetsen tegelijk in te drukken.

Ik hoop dat het je kan helpen, bedankt!
Deze opmerking is gemaakt door de moderator op de site
Geweldig :) Werkt prima
Deze opmerking is gemaakt door de moderator op de site
hoe kan ik dezelfde sorteerberekening doen, maar van de nieuwste datum naar de oudste? Momenteel is het van oud naar nieuw. Het omdraaien van het <-teken is niet genoeg en verder heb ik niet sterk genoeg begrip van wat het doet. Ik denk ook dat Excel automatisch van boven naar beneden werkt en problemen veroorzaakt.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Bo,

Om de datum automatisch van nieuwste naar oudste te sorteren, hoeft u alleen de <= naar >= in de bovenstaande formule als volgt te wijzigen:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,">="&$A$2:$A$15),0))
Vergeet niet om na het invoegen van deze formule de toetsen Ctrl + Shift + Enter samen in te drukken om het juiste resultaat te krijgen.
Alstublieft probeer het.
Deze opmerking is gemaakt door de moderator op de site
Is er naast de dubbele datums ook een manier om meerdere kolommen met gegevens op te nemen wanneer deze worden gesorteerd? Ik heb het nodig om meerdere kolommen op te nemen en ze allemaal samen met de vervaldatums te sorteren.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een chequeboekregister gemaakt en het werkt, maar ik wil uitzoeken hoe ik mijn invoer in de datumvolgorde kan plaatsen. Alle hulp zou op prijs worden gesteld. Ik ben nog bezig met excelleren.
Deze opmerking is gemaakt door de moderator op de site
Is er een bepaalde formule om de cellen op de gesorteerde datum te houden? Het zou leuk zijn om op datum te ordenen, maar de hele rij informatie te behouden. Om het even welke hulp zou zeer gewaardeerd worden.
Deze opmerking is gemaakt door de moderator op de site
Met de VBA-code heb ik het bovenstaande gekopieerd en geplakt, maar ik wil dat de datums in kolom F de waarden zijn waarop de gegevens worden gesorteerd. Ik heb de bereikwaarden gewijzigd in F2 en F3500 (de grootte van de spreadsheet waar rij 1 titels is), maar het sorteert nog steeds op de datums in kolom A. Kan iemand me alsjeblieft helpen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Roos,
Wanneer u de code toepast op kolom F, moet u enkele verwijzingen naar uw behoefte wijzigen, zoals onderstaande code:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
'Bijwerken door' Extendoffice 20160606
On Error Resume Next
Als Application.Intersect (Target, Application.Columns (6)) niets is, sluit dan Sub af
Als Target.Count > 1 Sub afsluiten
Bereik ("F1"). Sorteersleutel1:=Bereik ("F2"), Order1:=xlAscending, Header:=xlJa, _
OrderCustom:=1, MatchCase:=False, Oriëntatie:=xlTopToBottom
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Die VBA-code is massief goud! Dank u! :-)
Deze opmerking is gemaakt door de moderator op de site
Hallo, wat als ik dit met meerdere kolommen wil doen of zelfs een nieuw startpunt in dezelfde kolom wil hebben? Moet ik gewoon een pauze nemen en de VBA-code opnieuw kopiëren in datzelfde venster?
Dank je.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Dit is een geweldig hulpmiddel. bedankt. Hoe kan ik dit toepassen op meerdere kolommen op hetzelfde tabblad? Kan ik het toepassen om opnieuw te sorteren op datum in een nieuwe cel van dezelfde kolom? Zou ik de VBA-code gewoon opnieuw in hetzelfde venster plakken?
Dank je.
Deze opmerking is gemaakt door de moderator op de site
Hallo Noname9, hoe gaat het met je? Uw doel bereiken door VBA-code te gebruiken, ligt buiten mijn bereik. Maar ik weet wel hoe ik formules moet gebruiken om het voor elkaar te krijgen. Stel dat we twee kolommen met datums hebben, zeg A2:B7. Hoe sorteer je deze datums in een nieuwe kolom? Ga als volgt te werk.
Eerst moeten we de twee kolommen met datums combineren in één kolom. Kopieer en plak de formule =INDEX($A$2:$B$7,INT((ROWS(D$2:D2)-1)/2)+1,MOD(ROWS(D$2:D2)-1,2)+ 1) in cel D2. En sleep de vulgreep naar beneden om alle datums te combineren. Zie screenshot 1.
Vervolgens sorteren we de gecombineerde datums. Kopieer en plak de formule =INDEX($D$2:$D$13,MATCH(ROWS($D$2:D2),COUNTIF($D$2:$D$13,"<="&$D$2:$D$13) ,0)) in F2. En sleep de vulgreep naar beneden om alle datums te sorteren. Zie screenshot 2.
Hoop dat het zal helpen. Een fijne dag verder. Met vriendelijke groet, Mandy
Er zijn nog geen reacties geplaatst
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