VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsmappe mit dem Namen des aktuellen Datums öffnen

Gruppe

Datei

Bereich

Zeit

Thema

Arbeitsmappe mit dem Namen des aktuellen Datums öffnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Zeit