Gruppe
Datei
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?
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