Datei schließen, falls noch geöffnet
20.04.2013 18:12:38
Constantin
beim Öffnen von Datei1 (Pfad1) wird gleichzeitig auch Datei2 (Pfad2) mit READ geöffnet. Wird Datei1 wieder geschlossen, soll auch Datei2 geschlossen werden.
Allerdings zeigt sich, dass gelegentlich Datei2 vorher geschlossen wurde und nun beim Schließen von Datei1 eine Fehlermeldung kommt.
Datei2 soll also nur geschlossen werden, wenn sie noch offen ist. So ist der momentane Code in Datei1:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const Datei2 = "Datei2.xlsm"
Workbooks(Datei2).Close savechanges:=False
End Sub
Grüße, Constantin
Anzeige