Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe mit dem Namen des aktuellen Datums öffnen

Gruppe

Zeit

Problem

Wie kann ich über ein VBA-Makro eine Arbeitsmappe öffnen, die nach dem aktuellen Datum im Datumsformat "JJJJMMTT", also z.B. "19980512.xls" benannt ist?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub DateFileOpen()
   Dim sName As String
   sName = Format(Date, "yyyymmdd") & ".xls"
   If Dir(sName) = "" Then
      Beep
      MsgBox "Arbeitsmappe " & sName & " nicht gefunden!"
      Exit Sub
   Else
      Workbooks.Open sName
   End If
End Sub