Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zwei offene Dateien zugleich schließen

Zwei offene Dateien zugleich schließen
26.03.2014 10:08:06
Peter
Liebes Forum,
ich bitte um Eure Hilfe.
Beim Öffnen einer Datei A wird im Hintergrund automatisch eine zweite Datei B in der sich meine Makros befinden geöffnet .
Beim schließen der Datei A soll nun automatisch auch die Datei B geschlossen werden.
Wie müsste dazu das Makro aussehen?
Vielen Dank für Eure Hilfe,
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei offene Dateien zugleich schließen
26.03.2014 10:10:58
Hajo_Zi
Hallo Peter,
ThisWorkbook.Close false

AW: Zwei offene Dateien zugleich schließen
26.03.2014 10:23:14
Peter
Halo Hajo,
danke für deine Antwort. Wo muss ich diesen Befehl einfügen?
In das MS Objekt "Diese Arbeitsmappe"?
Gruß,
Peter

AW: Zwei offene Dateien zugleich schließen
26.03.2014 10:26:48
Hajo_Zi
Hallo Peter,
ich hätte es im Makro eingefügt.
Gruß Hajo

AW: Zwei offene Dateien zugleich schließen
26.03.2014 10:33:52
Peter
Hallo Hajo,
- werden dann direkt beide Dateien A und B geschlossen und
- wo muss ich diesen Befehl enfügen?
Gruß,
Peter

Anzeige
AW: Zwei offene Dateien zugleich schließen
26.03.2014 10:38:08
Hajo_Zi
Hallo Peter,
im ersten Beitrag Stand
Beim schließen der Datei A soll nun automatisch auch die Datei B geschlossen werden.

und darauf habe ich geantwortet. Die Aufgabe wurde gelöst. Die neue Aufgabe überlasse ich anderen.
Gruß Hajo

AW: Zwei offene Dateien zugleich schließen
26.03.2014 12:02:48
Peter
Hallo Hajo,
habe folgende Lösung gefunden:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Makrodaei As String
Makrodatei = "DATEI_B.xlsm"
Workbooks(Makrodatei).Close savechanges:=False
End Sub
Der kleine Code wird in das Objekt "Diese Arbeitsmappe" eingefügt. Beim Beenden der Datei A wird DATEI_B automatisch beendet.
Gruß,
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige