Arbeitsmappen öffnen VBA
04.07.2007 10:48:40
jjo
wie kann ich den u.g. Code am elegantesten lösen, da er ja nur EINE Sprungmarke aktzeptiert.
Will eigentlich nur ne Datei öffnen, und wenn er die mit Datum Gestern nicht findet, soll er halt bis zu 5 Tage in die Vergangenheit gehen, um die Datei zu finden.
Am liebsten wär mir ja ne Schleife, dass er solang sucht, bis er die "jüngste" Datei findet, also die neueste, aber das blick ich wieder nicht, wie ich die in dem Pfad da einbauen soll^^
Vielen Dank im Voraus!!!
Jörg
Sub Gross_aktualisieren()
ChDir "x\x"
On Error GoTo weiter1
Workbooks.Open Filename:="N:\x\x Stand " & Date - 1 & ".xls", UpdateLinks:=0
Exit Sub
On Error GoTo weiter2
weiter1: Workbooks.Open Filename:="x\x Stand " & Date - 2 & ".xls", UpdateLinks:=0
Exit Sub
On Error GoTo weiter3
weiter2: Workbooks.Open Filename:="N:\x\x Stand " & Date - 3 & ".xls", UpdateLinks:=0
Exit Sub
On Error GoTo weiter4
weiter3: Workbooks.Open Filename:="N:\x\x Stand " & Date - 4 & ".xls", UpdateLinks:=0
Exit Sub
On Error GoTo fehler
weiter4: Workbooks.Open Filename:="N:\x\x Stand " & Date - 5 & ".xls", UpdateLinks:=0
Exit Sub
fehler: MsgBox "Irgendwas stimmt nicht"
Exit Sub
End Sub
Anzeige
