Brian möchte ein Datum eingeben, indem er nur den Monat und den Tag eingibt.

Excel geht davon aus, dass das Jahr das aktuelle Jahr ist, möchte jedoch, dass das Jahr das nächste Jahr ist, wenn dieses Datum eintritt. Wenn heute beispielsweise der 01.06.18 ist und Brian 7/1 eingibt, geht Excel automatisch von einem Jahr 2018 aus. Wenn Brian am selben Tag 5/1 eingibt, sollte Excel ein Jahr 2019 als 5/1 annehmen ist schon in der Vergangenheit. Brian weiß, dass er eine Formel verwenden kann, um das Datum in einer anderen Zelle anzuzeigen, fragt sich jedoch, wie er Excel dazu bringen kann, diesen Ansatz standardmäßig zu verwenden, wenn er Datumsangaben in Zellen eingibt.

Die Lösung erfordert die Verwendung eines Makros, ohne mit Ihrem Systemdatum herumzuspielen oder Daten nach der Eingabe zu bearbeiten. Der folgende Ereignishandler führt den Trick aus:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub     If Target = "" Then Exit Sub

If IsDate(Target) Then         If Target < Date Then             If Year(Target) = Year(Date) Then                 Application.EnableEvents = False                     Target.Value = DateAdd("yyyy", 1, Target)

Application.EnableEvents = True             End If         End If     End If End Sub

Um dieses Makro zu Ihrer Arbeitsmappe hinzuzufügen, klicken Sie einfach mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, in dem es ausgeführt werden soll, und wählen Sie dann Code anzeigen. Fügen Sie im resultierenden Codefenster das obige Makro hinzu.

Jedes Mal, wenn Sie Änderungen am Arbeitsblatt vornehmen, wird überprüft, ob es sich um ein Datum handelt. Wenn dies der Fall ist und das Datum vor dem heutigen Datum liegt, wird dem Datum ein Jahr hinzugefügt. Beachten Sie, dass der Code überprüft, ob das Jahr des eingegebenen Datums mit dem aktuellen Jahr übereinstimmt. Ohne diese Überprüfung würde jedes Datum in der Vergangenheit – sogar Daten in vielen Jahren in der Vergangenheit – erhöht. Dies ist wahrscheinlich nicht beabsichtigt, daher ist die Prüfung enthalten.

Das Makro wirkt sich weder auf Daten aus, die gleichzeitig in mehrere Zellen eingegeben wurden, noch auf Daten, die als Textwerte eingegeben wurden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13601) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.