Office: (Office 2013) Schließen von mehreren Datein

Hallo Zusammen!

Ich bin gerade dabei via VBA einen Code zu erstellen um beim öffnen eines Excel (MainDatei) immer ein weiteres (zweite Datei) zu öffnen. Sowie beim schließen der "MainDatei" ein automatisches schließen der "zweiten Datei".

Code für das öffnen:
Private Sub Workbook_Open()
Workbooks.Open "Pfad"
End Sub

Das funktioniert! Hier wäre der Optimierungsbedarf - dass die "zweite Datei"(welche automatisch geöffnet wird) hinter der "MainDatei" geöffnet wird und nicht im Vordergrund steht.

Weiters möchte ich beim schließen der "MainDatei" ein automatischen schließen der "zweiten Datei" erreichen. Vielleicht kann mich hier jemand unterstützen wie der Code aussehen könnte.

 

Hallo,

ich nehme an, dass folgende Änderungen zum Wunschergebnis führen - von mir nicht getestet

Code:

Option Explicit

Public wbB As Workbook

Private Sub Workbook_Open()
  Dim wbA As Workbook
  Set wbA = ThisWorkbook
  Set wbB = Workbooks.Open(Filename:="Pfad\Dateiname")
  wbA.Activate
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  wbB.Close SaveChanges:=True
'alternativ:
' wbB.Close SaveChanges:=True, Filename:="PfadNeu\DateinameNeu"
End Sub

 

Danke funktioniert!!