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 Sub4. 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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins