ich versuche mich gerade an einem Teil, der in einem Ordner nach einer .xlsm mit Tagesdatum sucht. Wenn die Datei bereits vorhanden ist, soll sie geöffnet werden. Wenn sie noch nicht erstellt wurde, dann soll sie erstellt werden. Mein Versuch war folgender..leider funnktioniert nur die Erstellung einer neuen Excel (Else Teil). An der If Prüfung scheiter ich...Danke für die Hilfe
Private Sub CommandButton1_Click()
Dim wkbMappe As Workbook
If Dir("O:\Testcmd\Temperatur_ & Format(Now, YYYYMMDD).xlsm") "" Then
Workbooks.Open "O:\2016\Temp_& Format(Now, YYYYMMDD).xlsm"
Else
Set wkbMappe = Workbooks.Add
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Temperatur_" & _
Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & _
".xlsm"), 52
ActiveWorkbook.Close
End If
End Sub