Ga naar hoofdinhoud

Hoe alle datums tussen twee datums in Excel weer te geven?

In sommige gevallen, als u de specifieke startdatum en de einddatum heeft, moet u mogelijk alle datums tussen deze twee opgegeven datums in Excel vermelden. Nu heeft deze tutorial het over de methoden om alle datums tussen twee datums in Excel weer te geven.

Maak een lijst van alle datums tussen twee datums door middel van formules

Maak een lijst van alle datums tussen twee datums door VBA

Maak een lijst van alle datums tussen twee datums door Kutools voor Excel goed idee 3


Hier introduceer ik formules die snel alle datums tussen twee opgegeven datums voor u in Excel kunnen weergeven.

1. Typ de begin- en einddatum in twee cellen, hier typ ik ze in cel A1 en A2. Zie screenshot:
doc-lijst-alle-datums-tussen-twee-datums-1

2. Ga vervolgens naar cel C1 om deze formule te typen = A1 + 1 erin en klik vervolgens Enter sleutel. Zie screenshot:
doc-lijst-alle-datums-tussen-twee-datums-2

3. Typ deze formule vervolgens in cel C2 =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) erin en sleep vervolgens de hendel voor automatisch aanvullen naar de cellen totdat een lege cel verschijnt. Zie screenshots:

doc-lijst-alle-datums-tussen-twee-datums-3       doc-lijst-alle-datums-tussen-twee-datums-4

Vervolgens kunt u zien dat alle datums tussen twee opgegeven datums in de kolom worden vermeld.
doc-lijst-alle-datums-tussen-twee-datums-5

Opmerking:

In de bovenstaande formules is A1 de begindatum, A2 is de einddatum en C1 is de eerste datum in het datumbereik.


Als u geïnteresseerd bent in macrocode, kunt u de onderstaande VBA gebruiken om alle datums tussen twee opgegeven datums in Excel weer te geven.

1. Typ de begindatum en einddatum in twee cellen, hier typ ik in cel A1 en B1. Zie screenshot:
doc-lijst-alle-datums-tussen-twee-datums-6

2. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

3. Dan klikken Invoegen > Module en kopieer en plak onder VBA-code naar de popping Module venster.

VBA: maak een lijst van alle datums tussen twee datums.

Sub WriteDates()
	'Updateby20150305
	Dim rng As Range
	Dim StartRng As Range
	Dim EndRng As Range
	Dim OutRng As Range
	Dim StartValue As Variant
	Dim EndValue As Variant
	xTitleId     = "KutoolsforExcel"
	Set StartRng = Application.Selection
	Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
	Set EndRng   = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set OutRng   = OutRng.Range("A1")
	StartValue   = StartRng.Range("A1").Value
	EndValue     = EndRng.Range("A1").Value
	If EndValue - StartValue <= 0 Then
		Exit Sub
		End If
		ColIndex = 0
		For i = StartValue To EndValue
			OutRng.Offset(ColIndex, 0) = i
			ColIndex = ColIndex + 1
		Next
	End Sub

4. klikken lopen or F5 om de VBA uit te voeren, en er verschijnt een dialoogvenster waarin u de begindatum kunt selecteren en klik vervolgens op OKen selecteer vervolgens de einddatum in het tweede popping-dialoogvenster. Zie screenshot:

doc-lijst-alle-datums-tussen-twee-datums-7          doc-lijst-alle-datums-tussen-twee-datums-8

5. klikken OK, selecteer vervolgens een cel om de datums weer te geven en klik op OK. Nu kunt u zien dat alle datums tussen twee datums worden weergegeven. Zie screenshots:

doc-lijst-alle-datums-tussen-twee-datums-9         doc-lijst-alle-datums-tussen-twee-datums-10

Note: De lijst die door deze VBA wordt gegenereerd, bevat de startdatum en de einddatum.


Eigenlijk, als je hebt geïnstalleerd Kutools for Excel - een handige invoegtoepassing, u kunt ook de Voeg willekeurige gegevens in om dit probleem op te lossen.

Kutools for Excel, met meer dan 300 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer een kolom waarin u datums tussen twee datums wilt weergeven en klik op Kutools > Invoegen > Voeg willekeurige gegevens in. Zie screenshot:
doc willekeurige gegevens invoegen 1

2. Vervolgens in de Voeg willekeurige gegevens in dialoogvenster, klik Datum tabblad en selecteer vervolgens de begin- en einddatums in het Van en To lijst, vergeet dan niet te controleren Werkdag, Weekend en Unieke waarden selectievakjes. Zie screenshot:
doc-lijst-alle-datums-tussen-twee-datums-12

3. klikken Ok om het dialoogvenster te sluiten, en nog een Kutools for Excel dialoogvenster verschijnt, klik gewoon Ja. Vervolgens kunt u zien dat de datums tussen de begindatum en de einddatum worden vermeld. Zie screenshots:

doc-lijst-alle-datums-tussen-twee-datums-13           doc-lijst-alle-datums-tussen-twee-datums-14

4. Nu moet u de datumlijst in de gewenste volgorde sorteren. Klik Data > Sorteer Oudste naar Nieuw. Vervolgens kunt u zien dat de datums zijn gesorteerd van de oudste datum naar de nieuwste datum. Zie screenshots:

doc-lijst-alle-datums-tussen-twee-datums-15          doc-lijst-alle-datums-tussen-twee-datums-16

met Voeg willekeurige gegevens in hulpprogramma, kunt u ook een willekeurig geheel getal, een willekeurige tekenreeks en een willekeurige tijd enzovoort invoegen. Klik hier voor meer informatie over Random Data invoegen.


Relatieve artikelen:


Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to loop this vba code (1000 rows for example) ?
This comment was minimized by the moderator on the site
Sorry for reply such late, but I do not understand your question, the VBA only for listing dates between a date range, why need to loop the code?
This comment was minimized by the moderator on the site
Firat - did you solve your issue? I have exactly the same issue and I cannot get the result in the row instead of the column.
This comment was minimized by the moderator on the site
If you invert this line you can make it work :


OutRng.Offset(ColIndex, 0) = i to OutRng.Offset(0, ColIndex) = i
This comment was minimized by the moderator on the site
Why do not try to transpose the column result to row?
This comment was minimized by the moderator on the site
i tried the VBA code it worked.. Thanks for sharing. Similarly is it possible to pase it along columns/ horizontally?
This comment was minimized by the moderator on the site
Hello, if you want to list dates in a row horizontally, you just need to use the vba code to list the dates, and copy the results and paste transpose.
This comment was minimized by the moderator on the site
Hello, Thanks for sharing a great code. I would like to ask one question though. I am using this VBA code you shared. 1) Can I list all the other cells in the same row with the dates? 2) Can we define the starting date cell and ending date cell and the cell that the new information will be written? I am asking these questions because I have 30 rows. Each row has data for different people. Cell G is a starting date and Cell H is an ending date. Other cells contains some information. I would like this to be listed in a new cell as all the dates between these cells. For example (just showing demonstration, so only G and H cells written below-I is where the list appears): Row 2 Person A 28/05/2017 05/06/2017 28/05/2017 Row 3 Person A 28/05/2017 05/06/2017 29/05/2017 Row 4 Person A 28/05/2017 05/06/2017 30/05/2017 Row 5 Person A 28/05/2017 05/06/2017 31/05/2017 Row 6 Person A 28/05/2017 05/06/2017 01/06/2017 Row 7 Person A 28/05/2017 05/06/2017 02/06/2017 Row 8 Person A 28/05/2017 05/06/2017 03/06/2017 Row 9 Person A 28/05/2017 05/06/2017 04/06/2017 Row 10 Person A 28/05/2017 05/06/2017 05/06/2017 Row 11 Person B 23/05/2017 31/05/2017 23/05/2017 Row 12 Person B 23/05/2017 31/05/2017 24/05/2017 Row 13 Person B 23/05/2017 31/05/2017 25/05/2017 Row 14 Person B 23/05/2017 31/05/2017 26/05/2017 and so on...
This comment was minimized by the moderator on the site
Can we use text box instead of in box in macro
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations