In früheren Excel-Ver­sio­nen (bis Excel 2003) gab es keine fer­tige Funk­tion, um das Monat­sende, den Ulti­mo zu berech­nen. Für alle Excel-Ver­sio­nen kön­nen Sie die hier vorgestellte selb­st­definierte Funk­tion (UDF) ver­wen­den. Fügen Sie den Code in ein all­ge­meines Mod­ul ein (hier dazu mehr) und rufen Sie diese Funk­tion dann so auf: =Ultimo(Datum). Das Datum kann dann entwed­er eine Zelle sein oder ein beispiel­sweise als Text eingegebenes Datum.

Function Ultimo(optional Datum)
'Monatsletzter, auch für älteren Excel-Versionen
If ismissing(Datum) Then Datum = Date   
If IsDate(Datum) Then
      Ultimo = DateSerial(Year(Datum), Month(Datum) + 1, 0)
      'Alternative als Text
      'Ultimo = Format(DateSerial(Year(Datum), Month(Datum) + 1, 0))
   Else  'Rückgabe des Monatsletzten des aktuellen Monats
      Ultimo = DateSerial(Year(Date), Month(Date) + 1, 0)
      'Alternative als Text
      'Ultimo = foramt(DateSerial(Year(Date), Month(Date) + 1, 0), "DD.MM.YYYY")
   End If
End Function

Die Funk­tion prüft zuerst, ob der übergebene Wert ein Datum ist bzw. als solch­es inter­pretiert wer­den kann. Auch kalen­darische Dat­en in Textform wer­den kor­rekt erkan­nt und entsprechend aus­gew­ertet. Han­delt es sich beim übergebe­nen Argu­ment um kein (kalen­darisches) Datum oder es wird kein Argu­ment übergeben, wird die Funk­tion den let­zen Tag des aktuellen Monats zurück geben.

In der oben gezeigten Form muss das zurück gegebene Datum wahrschein­lich noch als Datum im gewün­scht­en Stil for­matiert wer­den. Sie kön­nen aber auch die alter­na­tive Form ver­wen­den. Dann wird das Datum als Text zurück gegeben, im For­mat TT.MM.JJJJ.