Makro wird nach Workbooks().close nicht f
10.08.2017 14:39:31
Guido
erst einmal vielen Dank für Eure superhilfreichen Tipps, aber hier renn ich grad vor die Wand und hoffe auf Eure Hilfe :-)
Ich habe eine Datei, die über workbook_open diverse Dinge tut. Inhaltlich geht es um das Thema Urlaubsplanung.
Jetzt die Frage:
Ich habe eine Datei, die prüft, ob eine bestimmte Datei bereits angelegt wurde und das ggf. nachholt. Sollte diese Datei bereits bestehen, soll auf diese gewechselt werden und die zuerst geöffnete Datei geschlossen werden.
Dieser Code ist identisch in beiden beteiligten Dateien.
Die Datei "urlaubsplanung-TL.xlsm" wird im laufe des Codes verändert und unter neuem Namen abgespeichert.
Problem entsteht beim (potentiell) 2. Aufruf.
Private Sub workbook_open()
'Prüfen, ob TL-Planungsjahr besteht, ansonsten anlegen
If ThisWorkbook.Name = "urlaubsplanung-TL.xlsm" Then
'Prüfen, ob Plandatei für das Team existiert
If Dir("\\holmfs01\projekt\ACC\VORET\VORET\VORET_NET\Retailnet\officeentwicklung\ _
urlaubsplanung\TL\" & Year(Now) + 1 & "\" & Year(Now) + 1 & "-" & strTeam & ".xlsm") = "" Then
Application.EnableEvents = False
Call TLimport.nextJahr
Else
Workbooks.Open filename:=("\\holmfs01\projekt\ACC\VORET\VORET\VORET_NET\Retailnet\ _
officeentwicklung\urlaubsplanung\TL\" & Year(Now) + 1 & "\" & Year(Now) + 1 & "-" & strTeam & ". _
xlsm")
End If
End If
'"urlaubsplanung-TL.xlsm" schliessen, wenn geöffnet
'hier läuft aber noch das workbook_open Ereignis, dass zu beenden ist
On Error Resume Next
Workbooks("urlaubsplanung-TL.xlsm").Close
End Sub
Wie kann ich das laufende Makro aus "urlaubsplanung-TL.xlsm" beenden, bevor die Datei geschlossen wird?Ich hoffe, ich habe mich verständlich ausgedrückt.
Danke für Eure Hilfe im voraus
LG
Guido