Wie listet man in Excel alle Daten zwischen zwei Datumsangaben auf?
In bestimmten Fällen müssen Sie möglicherweise alle Daten zwischen zwei vorgegebenen Datumsangaben in Excel auflisten – insbesondere wenn Ihnen das genaue Start- und Enddatum vorliegt. Dieses Tutorial zeigt Ihnen effektive Methoden, um sämtliche Daten zwischen zwei Datumsangaben in Excel systematisch aufzulisten.
Alle Daten zwischen zwei Datumsangaben mithilfe von Formeln auflisten
Alle Daten zwischen zwei Datumsangaben mithilfe von Kutools für Excel auflisten 
Alle Daten zwischen zwei Datumsangaben mithilfe von VBA auflisten
Alle Daten zwischen zwei Datumsangaben mithilfe von Formeln auflisten
Hier zeige ich Ihnen praktische Formeln, mit denen Sie in Excel schnell alle Daten zwischen zwei vorgegebenen Datumsangaben auflisten können.
1. Geben Sie das Start- und Enddatum in zwei Zellen ein – in diesem Beispiel in die Zellen A1 und A2. Siehe Screenshot:
2. Wechseln Sie dann zur Zelle C1 und geben Sie folgende Formel ein: =A1+1. Anschließend drücken Sie die Eingabetaste. Siehe Screenshot:
3. Geben Sie dann in Zelle C2 folgende Formel ein:=IF($A$1+ROW(A1)>=$A$2-1,„",C1+1) und ziehen Sie den AutoAusfüll-Griff nach unten, bis eine leere Zelle erscheint. Siehe Screenshots:
Anschließend werden alle Daten zwischen den beiden vorgegebenen Datumsangaben in der Spalte angezeigt.
Hinweis:
In den obigen Formeln ist A1 das Startdatum, A2 das Enddatum und C1 das erste Datum innerhalb des Datumsbereichs.
Alle Daten zwischen zwei Datumsangaben mithilfe von Kutools für Excel auflisten
Tatsächlich können Sie, wenn Sie Kutools für Excel – ein praktisches Add-in-Werkzeug – installiert haben, auch die Funktion Zufällige Daten einfügen verwenden, um dieses Problem zu lösen.
Nachdem Sie kostenlos installiert habenKutools für Excel, gehen Sie bitte wie folgt vor:
1. Wählen Sie eine Spalte aus, in der Sie die Daten zwischen zwei Datumsangaben auflisten möchten, und klicken Sie auf Kutools > Einfügen > Zufällige Daten einfügen. Siehe Screenshot:
2. Klicken Sie im Dialogfeld Zufällige Daten einfügen auf den Reiter Datum, wählen Sie anschließend das Start- und Enddatum in den Feldern Von und Bis aus, und aktivieren Sie unbedingt die Kontrollkästchen für Wochentag, Wochenende und Eindeutige Werte. Siehe Screenshot:
3. Klicken Sie auf OK, um das Dialogfeld zu schließen. Anschließend erscheint ein weiteres Dialogfeld Kutools für Excel – klicken Sie einfach auf Ja. Daraufhin werden die Daten zwischen Start- und Enddatum angezeigt. Siehe Screenshots:
4. Nun müssen Sie die Datumsliste in der gewünschten Reihenfolge sortieren. Klicken Sie auf Daten > Älteste zuerst sortieren. Anschließend sehen Sie, dass die Daten vom ältesten zum neuesten Datum sortiert sind. Siehe Screenshots:
Mit dem Tool Zufällige Daten einfügen können Sie zudem ganz einfach zufällige ganze Zahlen, Zeichenfolgen, Uhrzeiten und mehr einfügen.Klicken Sie hier, um mehr über „Zufällige Daten einfügen“ zu erfahren.
Alle Daten zwischen zwei Datumsangaben mithilfe von VBA auflisten
Falls Sie sich für Makrocode interessieren, können Sie das folgende VBA-Skript nutzen, um in Excel alle Daten zwischen zwei vorgegebenen Datumsangaben aufzulisten.
1. Geben Sie das Start- und Enddatum in zwei Zellen ein – in diesem Beispiel in die Zellen A1 und B1. Siehe Screenshot:
2. Drücken Sie die Tastenkombination Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie dann auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das erscheinende Modul-Fenster.
VBA: Alle Daten zwischen zwei Datumsangaben anzeigen.
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 das VBA-Skript auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie das Startdatum auswählen müssen. Klicken Sie dann auf OK und wählen Sie im zweiten Dialogfeld das Enddatum aus. Siehe Screenshot:
5. Klicken Sie auf OK, wählen Sie eine Zelle aus, in der die Daten ausgegeben werden sollen, und klicken Sie anschließend auf OK. Jetzt sehen Sie alle Daten zwischen den beiden Datumsangaben aufgelistet. Siehe Screenshots:
Hinweis: Die von diesem VBA-Skript generierte Liste enthält das Start- und das Enddatum.
Alle Daten zwischen zwei Datumsangaben auflisten
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins