Hinzufügen einer Ordnungsnotation zu Datumsangaben (Microsoft Excel)
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.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (10033) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: