Wie überprüft man, ob ein Jahr ein Schaltjahr in Excel ist?

Wissen Sie, wie man feststellt, ob ein Jahr ein Schaltjahr ist oder nicht? In Excel gibt es keine direkte Methode, um dies zu überprüfen, aber Sie können eine benutzerdefinierte Funktion oder Formel erstellen, um dieses Problem zu lösen.

Überprüfen Sie mit einer Formel, ob ein Jahr ein Schaltjahr ist

Überprüfen Sie mit einer benutzerdefinierten Funktion, ob ein Jahr ein Schaltjahr ist

Überprüfen Sie mit einer Formel, ob ein Jahr ein Schaltjahr ist

Angenommen, Sie haben eine Liste von Jahren im Arbeitsblatt. Die folgende lange Formel kann Ihnen helfen zu bestimmen, ob ein bestimmtes Jahr ein Schaltjahr ist oder nicht. Gehen Sie wie folgt vor:

1. Neben den Jahreszellen geben Sie in eine leere Zelle diese Formel ein:

=WENN(ODER(REST(A2;400)=0;UND(REST(A2;4)=0;REST(A2;100)<>0));"Schaltjahr"; "KEIN Schaltjahr"), (A2 enthält das Jahr, auf das Sie diese Formel anwenden möchten, Sie können es nach Bedarf ändern) siehe Screenshot:

2. Ziehen Sie dann den Ausfüllkursor über den Bereich, der diese Formel enthalten soll, und alle Jahre wurden daraufhin überprüft, ob sie Schaltjahre sind oder nicht.

Hinweis: Wenn die entsprechende Zelle leer ist, zeigt diese Formel ebenfalls „Schaltjahr“ an.

Überprüfen Sie mit einer benutzerdefinierten Funktion, ob ein Jahr ein Schaltjahr ist

Sie können auch eine benutzerdefinierte Funktion erstellen, um zu überprüfen, ob das Jahr ein Schaltjahr ist. Sie können dies wie folgt abschließen:

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Überprüfen, ob ein Jahr ein Schaltjahr ist

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3. Speichern und schließen Sie diesen Code, gehen Sie zurück zu Ihrem Arbeitsblatt, und geben Sie diese Formel ein: =isleapyear(A2), siehe Screenshot:

4. Ziehen Sie dann den Ausfüllkursor zu den Zellen, die diese Formel enthalten sollen, und alle Jahre wurden überprüft. Der Wert FALSCH steht für kein Schaltjahr und WAHR zeigt ein Schaltjahr an. Siehe Screenshot:

Verwandter Artikel:

Den kleinsten gemeinsamen Nenner oder größten gemeinsamen Teiler in Excel finden