schließen und gleich wieder öffnen

Markus · 2018-02-12T12:04:23+00:00

Hallo liebe Community, ich suche nach einer Lösung eine Datei zu schließen (was schon funktioniert) und dann aber wieder nach dem schließen gleich erneut zu öffnen nach einer bestimmten Zeitspanne, dabei möchte ich aber keinen festen Pfad angeben extra für die zu öffnende Datei, sondern er soll erkennen welche Datei geschlossen wurde und diese auch gleich wieder öffnen, da sich dieser Pfad immer wieder ändert. Also er soll die Datei öffnen die er geschlossen hat und erkennen um welche es sich handelte. Ich stellte mir das so vor: Per Doppelklick wird die Datei geöffnet, dann auf Buttondruck wird sie geschlossen und danach gleich nach 2 Sekunden aber wieder geöffnet, (die selbe Datei), dabei sollen aber keine Änderungen gespeichert werden und es soll auch nicht nachgefragt werden ob gespeichert werden soll. So weit bin ich bereits: Sub Start() pfad = ActiveWorkbook.Path Application.OnTime Now + TimeValue("00:00:02"), Application.Workbooks.Open(pfad) MsgBox "Die Arbeitsmappe wurde wieder erfolgreich geöffnet" End Sub Sub schließen() 'ActiveWorkbook.Close 'ActiveWorkbook.Close savechanges:=False ActiveWorkbook.Close (False) 'ThisWorkbook.Close True End Sub Sub Öffnen() ThisWorkbook.Activate 'Application.OnTime Now + TimeValue("00:00:10"),ThisWorkbook.Name & "!Start" Call Start End Sub Das schließen funktioniert immer, aber er öffnet es nicht wieder nach den 2 Sekunden, was mache _ ich da falsch? Hoffe jemand kann mir da weiterhelfen Beste Grüße Markus

Danke Mullit hat bei mir gut funktioniert :)
Nun wollte ich jedoch mal das eine und mal das andere Workbook schließen lassen und dann wieder öffnen, nur bisher bekomme ich das nicht hin, immer wird wieder das selbe Workbook geschlossen und geöffnet.
Folgenden Code habe ich mir bisher aus Deinem abgeleitet:

Public Sub prcCloseFile2() Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, 10), _ Procedure:="prcDummy2") Call ThisWorkbook.Close(SaveChanges:=True) End Sub

Public Sub prcCloseFile() Call Application.OnTime(EarliestTime:=Now + TimeSerial(0, 0, 2), _ Procedure:="prcDummy") MsgBox "Davor" Call prcCloseFile2 MsgBox "Danach" Call ThisWorkbook.Close(SaveChanges:=False) End Sub

Private Sub prcDummy() Call Workbooks(3).Activate End Sub

Private Sub prcDummy2() Call Workbooks(2).Activate End Sub

Er sollte das aktive Workbook wechseln und mal im dritten stehen und mal im zweiten stehen und dann wenn er im zweiten steht das dritte öffnen und schließen, halt so in dem Maße, aber er macht es wie gesagt immer nur für das Erste Workbook. Warum frage ich mich?
Ich wollte gern dieses prcCloseFile2 aufrufen doch er nimmt es nicht an und selbst wenn ich es einzeln mache öffnet und schließt er immer nur das erste Workbook. Beim ersten mal ist das auch richtig, aber dann sollte er das zweite schließen und wieder aufmachen und dann das dritte und stets sollte ein anderes Workbook aktiv sein.
Auch frage ich mich was bedeutet eigentlich dieses Call ThisWorkbook.Activate, ich hatte das mal weggelassen und es funktionierte trotzdem, das fand ich seltsam, aber halt auch nur wieder für das Erste Workbook. Also wozu braucht er das überhaupt?
Hoffe kannst mir da weiterhelfen bzw. jemand der es liest.
Beste Grüße
Markus

schließen und gleich wieder öffnen

Forumthread: schließen und gleich wieder öffnen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial