Hoe alle datums tussen twee datums in Excel te lijsten?

In sommige gevallen, als je een specifieke startdatum en einddatum hebt, moet je mogelijk alle datums tussen deze twee gegeven datums in Excel weergeven. Deze tutorial behandelt de methoden om alle datums tussen twee datums in Excel weer te geven.

Alle datums tussen twee datums weergeven met formules

Alle datums tussen twee datums weergeven met Kutools voor Excel

Alle datums tussen twee datums weergeven met VBA

Alle datums tussen twee datums weergeven met formules

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

1. Typ de start- en einddatums in twee cellen, hier typ ik ze in cel A1 en A2. Zie screenshot:

2. Ga vervolgens naar cel C1 en typ deze formule =A1+1 erin, en klik vervolgens op Enter toets. Zie screenshot:

3. Typ vervolgens in cel C2 deze formule =ALS($A$1+RIJ(A1)>=$A$2-1;"";C1+1) erin, en sleep het automatisch invulhandvat omlaag naar de cellen totdat een lege cel verschijnt. Zie screenshots:

Dan kun je zien dat alle datums tussen de twee gegeven datums in de kolom zijn weergegeven.

Opmerking:

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

Alle datums tussen twee datums weergeven met Kutools voor Excel

Eigenlijk, als je Kutools voor Excel – een handig invoegtoepassingsgereedschap – hebt geïnstalleerd, kun je ook Willekeurige gegevens invoegen gebruiken om dit probleem op te lossen.

Na gratis installatie van Kutools voor Excel, doe dan het volgende:

1. Selecteer een kolom waarin je de datums tussen twee datums wilt weergeven, en klik op Kutools > Invoegen > Willekeurige gegevens invoegen. Zie screenshot:

2. Open vervolgens in het Willekeurige gegevens invoegen dialoogvenster, klik op Datum tabblad, selecteer vervolgens de start- en einddatums vanaf Van en To lijst, vergeet dan niet om de vakjes Werkdag, Weekend en Unieke waarden aan te vinken. Zie screenshot:

3. Klik op OK om het dialoogvenster te sluiten, en er verschijnt nog een Kutools voor Excel dialoogvenster, klik gewoon op Ja. Dan kun je zien dat de datums tussen de startdatum en einddatum zijn weergegeven. Zie screenshots:

4. Nu moet je de datumsortering in de juiste volgorde zetten. Klik op Gegevens > Sorteren van oudste naar nieuwste. Dan kun je zien dat de datums zijn gesorteerd van oudste datum naar nieuwste datum. Zie screenshots:

Met het hulpprogramma Willekeurige gegevens invoegen kun je ook willekeurige gehele getallen, willekeurige tekst en willekeurige tijden invoegen, enzovoort. Klik hier om meer te weten te komen over Willekeurige gegevens invoegen.

Alle datums tussen twee datums weergeven met VBA

Als je geïnteresseerd bent in macrocode, kun je onderstaande VBA gebruiken om alle datums tussen twee gegeven datums in Excel weer te geven.

1. Typ de startdatum en einddatum in twee cellen, hier typ ik in cel A1 en B1. Zie screenshot:

2. Druk op Alt +F11 toetsen om het Microsoft Visual Basic for Applications venster te openen.

3. Klik vervolgens op Invoegen > Module en kopieer en plak onderstaande VBA-code in het pop-up Module venster.

VBA: Alle datums tussen twee datums weergeven.

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. Klik op Uitvoeren of F5 om de VBA uit te voeren, en er verschijnt een dialoogvenster waarin je de startdatum kunt selecteren, klik vervolgens op OK, selecteer vervolgens de einddatum in het tweede pop-up dialoogvenster. Zie screenshot:

5. Klik op OK, selecteer vervolgens een cel om de datums in te plaatsen, en klik vervolgens op OK. Nu kun je zien dat alle datums tussen twee datums zijn weergegeven. Zie screenshots:

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

Alle datums tussen twee datums weergeven

Gerelateerde artikelen:

• Dynamische lijst van werkbladnamen maken