Datei mit Datum
07.04.2015 16:33:02
lau
habe ein Makro, dass immer die Datei mit heutigem Datum aufmacht und kopiert.
Ist heute die Datei noch nicht abgelegt, dann bringt das Makro eine Fehlermeldung.
Wie kann ich dem Makro beibringen, wenn heutige Datei nicht vorhanden, dann soll er aus den vorhandenen Dateien die aktuellste Datei nehmen.
z.B. Datei heute nicht vorhanden, dann die Datei nehmen die, die aktuellste ist.
Normalerweise Vortag.
Vielen Dank.
Laura
Sub PFC_Copy_neu()
Dim wkbPP As Workbook, strFile As String
strFile = "P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx"
Application.ScreenUpdating = False
On Error Resume Next
Set wkbPP = Workbooks(strFile)
On Error GoTo 0
If wkbPP Is Nothing Then
Set wkbPP = Workbooks.Open(fileName:="\\\4 n\PFCs Files\" & strFile)
End If
With ActiveWindow
.WindowState = xlNormal
.Top = 5.5
.Left = 1453.75
.Width = 1397.25
.Height = 670.5