Wenn Sie eine Arbeitsmappe entwickeln, müssen Sie möglicherweise Suffixe wie „st, nd, rd oder th“ am Ende der Daten einfügen, wie im „9. März“.

Leider gibt es keine Möglichkeit, dies mit den integrierten Datumsformaten zu tun, die Sie auf einzelne Zellen anwenden können. Falls gewünscht, können Sie für jeden der vier Suffix-Typen benutzerdefinierte Formate erstellen. Diese müssen jedoch basierend auf dem Inhalt der Zelle selbst einzeln angewendet werden.

Die einzige andere Möglichkeit ist die Verwendung einer Konvertierungsformel. Diese lassen sich leicht zusammenstellen, aber die resultierende Zelle enthält kein echtes Excel-Datum, sondern Text. Dies schließt aus, dass der Zelleninhalt in anderen datumsbezogenen Funktionen verwendet wird. Das Folgende ist ein Beispiel für die Art der Konvertierungsformel, die Sie verwenden können:

=DAY(A1)&IF(OR(DAY(A1)={1,2,3,21,22,23,31}), CHOOSE(1*RIGHT(DAY(A1),1),"st","nd ","rd "),"th")

&TEXT(A1,"mmmm, yyyy")

Es gibt andere, aber alle machen im Wesentlichen dasselbe – ziehen Sie die verschiedenen Teile eines Datums auseinander und setzen Sie sie mit dem richtigen Suffix wieder zusammen.

Wenn Sie möchten, können Sie auch eine Makrofunktion erstellen, die ein ordnungsgemäß formatiertes Datum mit dem Ordnungssuffix zurückgibt. Das Folgende ist ein solches Makro:

Function OrdinalDate(myDate As Date)

Dim dDate As Integer     Dim dText As String     Dim mDate As Integer     Dim mmmText As String

dDate = Day(myDate)

mDate = Month(myDate)



Select Case dDate         Case 1: dText = "st"

Case 2: dText = "nd"

Case 3: dText = "rd"

Case 21: dText = "st"

Case 22: dText = "nd"

Case 23: dText = "rd"

Case 31: dText = "st"

Case Else: dText = "th"

End Select

Select Case mDate         Case 1: mmmText = " January"

Case 2: mmmText = " February"

Case 3: mmmText = " March"

Case 4: mmmText = " April"

Case 5: mmmText = " May"

Case 6: mmmText = " June"

Case 7: mmmText = " July"

Case 8: mmmText = " August"

Case 9: mmmText = " September"

Case 10: mmmText = " October"

Case 11: mmmText = " November"

Case 12: mmmText = " December"

End Select

OrdinalDate = dDate & dText & mmmText End Function

Sie verwenden das Makro, indem Sie es einfach innerhalb einer Zellformel aufrufen. Wenn Sie beispielsweise ein Datum in Zelle B7 gespeichert haben, können Sie in jeder anderen Zelle Folgendes verwenden:

=OrdinalDate(B7)

_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 (2510) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Ordnungsnotation zu Dates hinzufügen.