Wenn Sie ein Arbeitsblatt entwickeln, müssen Sie möglicherweise bestimmte Informationen zu Ihrer Arbeitsmappe nachverfolgen. Beispielsweise möchten Sie möglicherweise das Erstellungsdatum einer Arbeitsmappe in eine Zelle einfügen. Excel bietet zwar einige Arbeitsblattfunktionen für Datumsangaben (z. B. JETZT oder HEUTE), jedoch keine Arbeitsblattfunktion für den Zugriff auf das Erstellungsdatum der Arbeitsmappe.

Dies bedeutet, dass die Antwort in der Verwendung eines Makros liegt. Sie können beispielsweise ein Makro erstellen, das das aktuelle Datum ermittelt und es (als Text) in eine bestimmte Zelle eingibt. Dieses Makro kann dann ausgeführt werden, wenn Sie eine neue Arbeitsmappe erstellt haben, indem Sie das Makro Auto_Open benennen. Das Folgende ist ein Beispiel für ein solches Makro:

Sub Auto_Open()

If Worksheets.Application.Range("A1") = "" Then         Worksheets.Application.Range("A1") = Format(Date, "long Date")

End If End Sub

Das Makro prüft, was sich in Zelle A1 befindet. Wenn dort nichts ist, wird die Textversion des heutigen Datums dort eingefügt. Wenn bereits etwas vorhanden ist (das jedes Mal vorhanden ist, wenn Sie die Arbeitsmappe anschließend öffnen), bleiben die Informationen intakt und unversehrt.

Der vielleicht zufriedenstellendste Ansatz besteht jedoch darin, tatsächlich auf das Betriebssystem zuzugreifen und das Dateierstellungsdatum für die aktuelle Arbeitsmappe abzurufen. Dies kann mit der folgenden Makrofunktion erfolgen:

Function CreateDate() As String     Dim Temp As String

On Error Resume Next     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.FullName).dateCreated     If Err.Number <> 0 Then         CreateDate = "Not Saved"

Else         CreateDate = Left(Temp, InStr(Temp, " ") - 1)

End If     On Error Goto 0 End Function

Beachten Sie, dass dieser Ansatz nicht an eine bestimmte Zelle in Ihrem Arbeitsblatt gebunden ist. Um das Makro zu verwenden, fügen Sie einfach Folgendes in eine beliebige Zelle Ihres Arbeitsblatts ein:

=CreateDate()

Die Funktion gibt entweder „Nicht gespeichert“ zurück (wenn die Arbeitsmappe brandneu ist und noch nicht gespeichert wurde) oder gibt einen Textwert zurück, der das Datum darstellt, an dem die Arbeitsmappe erstellt wurde.

_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 (10234) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier:

Noting the Workbook Creation Date.