Excel und VBA: Formeln, Programmierung, Lösungen

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