Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei2 und 3 autom. mit Datei1 öffnen

Datei2 und 3 autom. mit Datei1 öffnen
25.09.2021 10:24:27
Jana
Liebe VBA Spezialisten,
ich möchte gerne beim Öffnen einer Exceldatei (Datei 1), 2 weitere Exceldateien automatisch mit öffnen und habe es wie unten einkopiert gelöst, bekomme allerdings die Fehlermeldung "Fehler beim Kompilieren, Mehrdeutiger Name Auto_Open ():
'ERKLÄRUNG: Beim Öffnen von Datei 1 wird Datei 2 automatisch mit geöffnet, das vorliegende Workbook bleibt jedoch im Vordergrund

Sub Auto_Open()
Workbooks.Open Filename:="Datei 2.xlsm"
ThisWorkbook.Activate
End Sub
'ERKLÄRUNG: Beim Öffnen von Datei 1 wird Datei 3 automatisch mit geöffnet, das vorliegende Workbook bleibt jedoch im Vordergrund

Sub Auto_Open()
Workbooks.Open Filename:="Datei 3.xlsx"
ThisWorkbook.Activate
End Sub
Kann mir da jmd weiterhelfen? LG Jana


		
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei2 und 3 autom. mit Datei1 öffnen
25.09.2021 10:40:43
Hajo_Zi
es darf nur eine POrozedur Auto_openen geben.
Benutze unter DieserArbeitsmappe
Private Sub Workbook_Open()
GrußformelHomepage
Anzeige
AW: Datei2 und 3 autom. mit Datei1 öffnen
25.09.2021 11:45:58
PawelPopolski

Sub Auto_Open()
Workbooks.Open Filename:="Datei 2.xlsm"
Workbooks.Open Filename:="Datei 2.xlsm"
ThisWorkbook.Activate
End Sub

AW: Datei2 und 3 autom. mit Datei1 öffnen
25.09.2021 12:01:27
Jana
Lieber Pawel, danke, damit konnte ich es lösen.
Thema hat sich somit erledigt, danke für euren Support, freue mich sehr :-)
LG und schönes Wochenende, Jana
Anzeige
AW: Datei2 und 3 autom. mit Datei1 öffnen
25.09.2021 11:54:30
Jana
Lieber Hajo, danke für die Antwort.
Habe es jetzt wie folgt angepasst unter "Diese Arbeitsmappe"
'ERKLÄRUNG: Beim Öffnen von Datei 1 wird Datei 2 automatisch mit geöffnet, das vorliegende Workbook bleibt jedoch im Vordergrund

Private Sub Workbook_Open()
Workbooks.Open Filename:="Datei2.xlsm"
ThisWorkbook.Activate
End Sub
'ERKLÄRUNG: Beim Schließen von Datei 1 wird Datei 2 automatisch mit geschlossen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Datei2.xlsm").Close True
End Sub
'ERKLÄRUNG: Beim Öffnen von Datei 1 wird Datei 3 automatisch mit geöffnet, das vorliegende Workbook bleibt jedoch im Vordergrund

Private Sub Workbook_Open()
Workbooks.Open Filename:="Datei3.xlsx"
ThisWorkbook.Activate
End Sub
'ERKLÄRUNG: Beim Schließen Schließen von Datei 1 wird Datei 3 automatisch mit geschlossen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Datei3.xlsx").Close True
End Sub
Jetzt tut sich allerdings garnichts wenn ich Datei 1 öffne.. oh nein :-)
LG Jana
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige