Begin­nend in A1 soll in jede Zeile das Datum des Fol­ge­tages einge­fügt wer­den, bis der heutige (aktuelle) Tag erre­icht ist. – Für die Tests habe ich in A1 diese Formel einge­fügt:
=DATUM(JAHR(HEUTE())-1;12;6)
wom­it ich immer den Niko­laustage (6. Dezem­ber) des ver­gan­genen Jahres als Start-Tag habe. Damit liege ich in jedem Fall unter 400 Zeilen, die aus­ge­füllt wer­den müssen. Das fördert ein­fach nur die Über­sicht.

▲ nach oben …

Zugmaschine  😉 

Die wohl ein­fach­ste Meth­ode: Sie wan­deln die Formel in ein festes Datum, also den Wert um. Sie kön­nen das oder ein beliebiges anderes Datum auch per Hand in A1 schreiben das spielt hier keine Rolle. Insofern darf es auch des Prinzip wegen ein Anfangs­da­tum sein, welch­es nur einige Tage zurück liegt. Haupt­sache es ist ein „echt­es” Datum und keine Formel.

Klick­en auf das Aus­fül­lkästchen in A1 und ziehen Sie die Zelle ein­fach nach unten. In einem ToolTip wird das jew­eilige Datum aus der unter­sten Zelle angezeigt:

Datum durch ziehen auf­füllen

Und bei Erre­ichen des heuti­gen Tages lassen Sie die Maus­taste los. – Das funk­tion­iert übri­gens mit allen Zahlen und auch Tex­ten, die als let­ztes eine Zahl (Zif­fer­n­folge) haben.

▲ nach oben …

Weniger ist manchmal mehr

Wie gehabt und wie auch in den weit­eren Beispie­len ste­ht das Start­da­tum in A1. Und es ist ein beliebiges Datum. Tra­gen Sie in A2 nun diese Formel ein: =A1+1 – Kopieren Sie nun diese Formel. Schätzen oder über­schla­gen Sie nun, wie viele Tage unge­fähr aus­ge­füllt wer­den müssen. Geben Sie noch eine „Sicher­heits­marge” von min­destens 15% dazu.

Gehen Sie in Spalte A zu der Zeile, die Sie eben berech­net haben. StrgShift↑ und der Bere­ich ab der (eben noch) aktuellen Zelle bis A2 wird markiert. Jet­zt Eingabe und automa­tisch sind alle Zellen des markierten Bere­ichs mit den gewün­scht­en kalen­darischen Dat­en aufge­füllt.

Wegen der „Sicher­heits­marge” sind Sie natür­lich über das gewün­schte Ziel, den heuti­gen Tag, hin­aus geschossen. Der Ein­fach­heit hal­ber löschen Sie die überzäh­li­gen Zeilen bzw. Felder und das Ziel ist erre­icht.

▲ nach oben …

Elegant und galant  😉 

Eine wirk­lich ele­gante Meth­ode ist in Excel an etwas ver­steck­ter Stelle zu find­en. Und die Methodik ist ähn­lich der eben durchge­führten, aber wesentlich exak­ter und effizien­ter. Aus­gangspunkt ist ein beliebig erstelltes Datum. Es darf auch die Funk­tion sein. Markiert ist A1 und die Zelle A2 ist leer.

Jet­zt StrgShift↓. Damit ist zwar die kom­plette Spalte A markiert, aber das ist OK. – Im Menü Start find­en Sie in der Gruppe Bear­beit­en den Punkt Füll­bere­ich. Ein Klick darauf , im Unter­menü den Punkt Rei­he… und im sich öff­nen­den Fen­ster …

Rei­he automa­tisch auf­füllen

… fügen Sie bei Endw­ert das heutige Datum ein. Das war’s auch schon. Ein weit­er­er Vorteil dieser Meth­ode: Sie kön­nen auch beliebige Inter­valle ver­wen­den; pro­bieren Sie gerne damit etwas herum, es lohnt sich.

▲ nach oben …

Per VBA/Makro darf nicht fehlen

Auch wenn VBA damit in den meis­ten Fällen unter­fordert ist, vielle­icht ist der Code aber in einem größeren Pro­jekt nutzbar:

Option Explicit

Sub DatumAusfuellen()
   Dim Datum As Date, Ze As Long
   Datum = CDate(Range("A1"))
   Ze = 2
   Do While Datum < Date
      Datum = Datum + 1
      Cells(Ze, 1) = Datum
      Ze = Ze + 1
   Loop
   Range("A1:A" & Ze).NumberFormat = "DD/MM/YYYY"
End Sub

Natür­lich lässt sich dieser Code beliebig verän­dern oder ergänzen. 

Es gibt ins­ge­samt noch einige weit­ere Möglichkeit­en, das Ziel zu erre­ichen. Die hier gezeigten sind jene, die am meis­ten ver­wen­det wer­den. Suchen Sie sich Ihre/n Favoriten aus. 😉 

▲ nach oben …

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B. 1,00 € freuen … (← Klick mich!)