Hallo,
ich habe ein kleines Problem und würde mich über eine Anwort riesig freuen.
Folgendes: In einem Ordner befinden sich Dateien der einzelnen Monatstage innerhalb der Woche von Montag bis Freitag, wie z. B. im März: 01, 02, 03, 06, 07, 08, 09, 10, 13, 14, 15 etc. ff. Ich habe ein Makro geschrieben, dass die Formeln in den Zellen von G14:AL17 über das Makro InfoText aktualisert und erweitert. Um jetzt nicht alle einzelnen Kalendertage zu öffnen und den Makro auszuführen habe ich folgendes Makro aufgezeichnet, das im wesentlichen auch funktioniert.
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\10.xlsm", UpdateLinks:=0
Application.Run "'10.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\11.xlsm", UpdateLinks:=0
Application.Run "'11.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\12.xlsm", UpdateLinks:=0
Application.Run "'12.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\13.xlsm", UpdateLinks:=0
Application.Run "'13.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\14.xlsm", UpdateLinks:=0
Application.Run "'14.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\15.xlsm", UpdateLinks:=0
Application.Run "'15.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\16.xlsm", UpdateLinks:=0
Application.Run "'16.xlsm'!InfoText"
ActiveWindow.Close
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\17.xlsm", UpdateLinks:=0
Application.Run "'17.xlsm'!InfoText"
ActiveWindow.Close
Allerdings existiert das Workbook Nr "12" nicht. Wie kann ich das umschreiben, sodass
er nur die vorhandenen Dateien berücksichtigt und die nicht existierenden Dateien dann
gnoriert.?
|