Wie listet man alle Daten zwischen zwei Daten in Excel auf?

In einigen Fällen, wenn Sie das spezifische Startdatum und Enddatum haben, müssen Sie möglicherweise alle Daten zwischen diesen beiden gegebenen Daten in Excel auflisten. Dieses Tutorial behandelt Methoden, um alle Daten zwischen zwei Daten in Excel aufzulisten.

Alle Daten zwischen zwei Daten mit Formeln auflisten

Alle Daten zwischen zwei Daten mit Kutools für Excel auflisten

Alle Daten zwischen zwei Daten mit VBA auflisten

Alle Daten zwischen zwei Daten mit Formeln auflisten

Hier stelle ich Formeln vor, die schnell alle Daten zwischen zwei gegebenen Daten in Excel für Sie auflisten können.

1. Geben Sie das Start- und Enddatum in zwei Zellen ein, hier tippe ich sie in Zelle A1 und A2. Siehe Screenshot:

2. Gehen Sie dann zu Zelle C1 und geben Sie diese Formel ein =A1+1 hinein, dann klicken Sie auf Eingabetaste Taste. Siehe Screenshot:

3. Dann geben Sie in Zelle C2 diese Formel =WENN($A$1+ZEILE(A1)>=$A$2-1;"";C1+1) ein und ziehen Sie den Ausfüllknauf nach unten bis zu den Zellen, bis eine leere Zelle erscheint. Siehe Screenshots:

Dann können Sie sehen, dass alle Daten zwischen den zwei gegebenen Daten in der Spalte aufgelistet sind.

Hinweis:

In den obigen Formeln ist A1 das Startdatum, A2 das Enddatum und C1 das erste Datum im Datumsbereich.

Alle Daten zwischen zwei Daten mit Kutools für Excel auflisten

Tatsächlich, wenn Sie Kutools für Excel – ein praktisches Add-In-Tool installiert haben, können Sie auch die Funktion „Zufällige Daten einfügen“ verwenden, um dieses Problem zu lösen.

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie eine Spalte aus, in der Sie Daten zwischen zwei Daten auflisten möchten, und klicken Sie auf Kutools > Einfügen > Zufällige Daten einfügen. Siehe Screenshot:

2. Dann im Zufällige Daten einfügen Dialogfeld klicken Sie auf Datum Tab, dann wählen Sie das Start- und Enddatum aus der Von und Bis Liste aus, dann vergessen Sie nicht, die Kontrollkästchen Werktag, Wochenende und Einzigartige Werte generieren anzukreuzen. Siehe Screenshot:

3. Klicken Sie auf OK, um das Dialogfeld zu schließen, und ein weiteres Kutools für Excel Dialogfeld öffnet sich, klicken Sie einfach auf Ja. Dann können Sie sehen, dass die Daten zwischen dem Startdatum und dem Enddatum aufgelistet sind. Siehe Screenshots:

4. Nun müssen Sie die Datumsliste in der gewünschten Reihenfolge sortieren. Klicken Sie auf Daten > Älteste zu Neueste sortieren. Dann können Sie sehen, dass die Daten vom ältesten zum neuesten Datum sortiert sind. Siehe Screenshots:

Mit dem Hilfsprogramm „Zufällige Daten einfügen“ können Sie auch zufällige Ganzzahlen, zufällige Zeichenfolgen und zufällige Uhrzeiten usw. einfügen. Klicken Sie hier, um mehr über „Zufällige Daten einfügen“ zu erfahren.

Alle Daten zwischen zwei Daten mit VBA auflisten

Wenn Sie an Makrocode interessiert sind, können Sie den folgenden VBA-Code verwenden, um alle Daten zwischen zwei gegebenen Daten in Excel aufzulisten.

1. Geben Sie das Startdatum und das Enddatum in zwei Zellen ein, hier tippe ich in Zelle A1 und B1. Siehe Screenshot:

2. Drücken Sie Alt +F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

3. Klicken Sie dann auf Einfügen > Modul und kopieren und fügen Sie den folgenden VBA-Code in das erscheinende Modulfenster ein.

VBA: Alle Daten zwischen zwei Daten auflisten.

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. Klicken Sie auf Ausführen oder F5, um den VBA-Code auszuführen, und ein Dialogfeld erscheint, in dem Sie das Startdatum auswählen können, dann klicken Sie auf OK, dann wählen Sie das Enddatum im zweiten erscheinenden Dialogfeld aus. Siehe Screenshot:

5. Klicken Sie auf OK, dann wählen Sie eine Zelle aus, um die Daten einzufügen, und klicken Sie dann auf OK. Nun können Sie sehen, dass alle Daten zwischen zwei Daten aufgelistet sind. Siehe Screenshots:

Hinweis: Die durch diesen VBA generierte Liste enthält das Startdatum und das Enddatum.

Alle Daten zwischen zwei Daten auflisten

Verwandte Artikel:

• Dynamische Liste von Arbeitsblattnamen erstellen