Office: (Office 365) Excel Dateien gehen aus wenn....

Hallo Zusammen,

wenn ich mit zwei Excel Dateien arbeite in denen Makros sind.
Und ich eine Davon schließe,öffnet sich diese nach ein paar Minuten wieder.
Ist das eine Einstellungssache ?

 

Hi,

gibt es in der Arbeitsmappe vielleicht ein Makro, welches die Mappe erneut öffnet? Schau mal im VBA-Editor nach ob es dort ein Makro gibt, welches den Befehl Application.OnTime enthält?

---

 

Hallo,
ja da sind 4 dieser Befehle enthalten.
Makros die z.B alle 30 Minuten ein Backup anlegen.

Kann man dafür einen anderen Befehl benutzen ?

 

Hi,

einen anderen Befehl dafür gibt es nicht. Wenn man diesen Befehl verwendet, muss man den Prozess beim Schließen der Arbeitsmappe allerdings auch wieder ordentlich beenden - tut man das nicht, wird er immer weiter ausgeführt. Ich nehme an, dass dies zu deinem Problem führt. Dazu müsste man aber deinen kompletten Code kennen - kannst du die Mappe vielleich mal hochladen?

---

 

Hallo. Das sind mehrere.
Code1:

Code:

Sub Backup_()
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets(Array("täglicheEingaben")).copy
ActiveWorkbook.SaveAs ("\\soe-data01\teams\HSM-MAFACT\Backup\" & _
 Format(Now, "hh-mm_DD_MM_YYYY-") & Application.Substitute(ThisWorkbook.Name, ".xlsm", "")), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close 0

Application.CalculateFull
Application.OnTime Now() + TimeValue("01:00:00"), "Backup_"
End Sub

Code2:

Code:

Sub copyData()
ActiveWorkbook.Save
UserForm.Show (0)
DoEvents
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets(Array("täglicheEingaben", "Störungsauswertung")).copy

ActiveWorkbook.SaveAs Filename:="\\soe-data01\teams\HSM-MAFACT\OEE_Backup\MAFACT_Online_MB_Chiron_1_Kopie.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close 0
Application.OnTime Now() + TimeValue("00:30:00"), "copyData"

Unload UserForm
Application.CalculateFull
End Sub

Code3:

Code:

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("05:00:00")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Save
    Application.Quit
End Sub

 

Hi,

versuche mal folgendes: kopiere diesen Code ins Codemodul DieseArbeitsmappe:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, Procedure:="Backup_", Schedule:=False
    Application.OnTime EarliestTime:=CloseTime, Procedure:="copyData", Schedule:=False
End Sub

---

 

Hallo,

danke dafür. Werde es testen und melde mich dann wegen Feedback.

 

Bekomme die Meldung vor dem schließen:

 

In welchem Codemodul steht bei dir diese Zeile:

Code:

Dim CloseTime As Date

Falls es in einem Standardmodul ist, dann ändere den Code wie folgt:

Code:

Public CloseTime As Date

Falls nicht, dann lösche deine Zeile komplett und trage meine komplett in ein Standardmodul ein

---

 

Danke Karin.
Jetzt funktioniert es.

 

Vielleicht noch zur Erläuterung:

wenn das Makro copyData gestartet wird, wird in dieser Zeile

Code:

Application.OnTime Now() + TimeValue("00:30:00"), "copyData"

festgelegt, dass es nach 30 min sich selbst erneut aufruft und dann die nächste Startzeit Jetzt+ 30 min festlegt um sich selbst nach dieser Zeit erneut aufzurufen - dadurch wird eine Endlosschleife erzeugt. Diese läuft immer weiter, auch wenn die Arbeitsmappe geschlossen wurde. Dasselbe trifft auf das Makro Backup_ zu. Durch meine beiden Codezeilen, um genau zu sein durch den Parameter Schedule:=False werden diese Endlosschleifen abgebrochen, sodass es nicht zu einer erneuten Ausführung der beiden Makros kommt und die Mappe geschlossen bleibt.

---

 

Hallo Karin,

Herzlichen Dank für die Hilfe und die Erklärung. Das ist nicht Alltäglich.

 

Hallo Karin,
leider musste ich feststellen dach trotz dem einfügen, Deines Codes ,die geschlossenen Dateien wieder auf gehen.
Eventuell liegt es an der Reihenfolge?

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, Procedure:="Backup_", Schedule:=False
    Application.OnTime EarliestTime:=CloseTime, Procedure:="copyData", Schedule:=False
  Call AutoSpeichernAusschalten
  Call TimeStop
End Sub

 

Hi,

vergleiche mal deinen Code und meinen aus Beitrag #6

---

 

...........
On Error Resume Next steht nicht genau auf der gleichen Position .

Und die beiden unten,stehen zusätzlich drin.Damit sich diese Makros auch richtig ausschalten .

Call AutoSpeichernAusschalten
Call TimeStop