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