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

Helfe beim Thema Excel Dateien gehen aus wenn.... in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von merkurmedium, 22. April 2021.

  1. merkurmedium Erfahrener User

    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 ?
     
    merkurmedium, 22. April 2021
    #1
  2. Beverly
    Beverly Erfahrener User
    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?


    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 22. April 2021
    #2
    1 Person gefällt das.
  3. merkurmedium Erfahrener User
    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 ?
     
    merkurmedium, 23. April 2021
    #3
  4. Beverly
    Beverly Erfahrener User

    Excel Dateien gehen aus wenn....

    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?


    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #4
    1 Person gefällt das.
  5. merkurmedium Erfahrener User
    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
     
    merkurmedium, 23. April 2021
    #5
  6. Beverly
    Beverly Erfahrener User
    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
    


    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #6
    1 Person gefällt das.
  7. merkurmedium Erfahrener User
    Hallo,

    danke dafür. Werde es testen und melde mich dann wegen Feedback.
     
    merkurmedium, 23. April 2021
    #7
  8. merkurmedium Erfahrener User

    Excel Dateien gehen aus wenn....

    Bekomme die Meldung vor dem schließen:
    Excel Dateien gehen aus wenn.... upload_2021-4-23_13-0-4.png
     
    merkurmedium, 23. April 2021
    #8
  9. Beverly
    Beverly Erfahrener User
    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



    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #9
    1 Person gefällt das.
  10. merkurmedium Erfahrener User
    Danke Karin.
    Jetzt funktioniert es.
     
    merkurmedium, 23. April 2021
    #10
  11. Beverly
    Beverly Erfahrener User
    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.



    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #11
    1 Person gefällt das.
  12. merkurmedium Erfahrener User
    Hallo Karin,

    Herzlichen Dank für die Hilfe und die Erklärung. Das ist nicht Alltäglich.
     
    merkurmedium, 24. April 2021
    #12
  13. merkurmedium Erfahrener User

    Excel Dateien gehen aus wenn....

    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
     
    merkurmedium, 5. Mai 2021
    #13
  14. Beverly
    Beverly Erfahrener User
    Hi,

    vergleiche mal deinen Code und meinen aus Beitrag #6


    Excel Dateien gehen aus wenn.... GrußformelExcel Dateien gehen aus wenn.... Beverly's Excel - Inn
     
    Beverly, 5. Mai 2021
    #14
  15. merkurmedium Erfahrener User
    ...........
    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
     
    merkurmedium, 5. Mai 2021
    #15
Thema:

Excel Dateien gehen aus wenn....

Die Seite wird geladen...
  1. Excel Dateien gehen aus wenn.... - Similar Threads - Excel Dateien

  2. Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben

    in Microsoft Excel Hilfe
    Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben: Hallo Zusammen, Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben, so dass die dritte Person die folgenden Bedingungen erfüllt: Die dritte Person kann nur die freigegebenen...
  3. Import einer Excel Datei in den Kalender

    in Microsoft Outlook Hilfe
    Import einer Excel Datei in den Kalender: Ich habe einen *.cvs Datei erstellt und möchte diese in den Outlook Kalender importieren. Wenn ich den Import starte, stellt Outlook einen Fehler fest und startet neu. Woran kann das liegen?
  4. 2 Berichte in eine Excel-Datei exportieren

    in Microsoft Access Hilfe
    2 Berichte in eine Excel-Datei exportieren: Hallo, ich möchte gerne 2 Berichte per VBA in je ein Register einer Excel-Datei exportieren, die dabei erstellt werden soll. Mit dem Befehl "DoCmd.OutputTo acOutputReport, "Bericht1", acFormatXLS,...
  5. Excel Datei nur von einer Person löschbar

    in Microsoft Excel Hilfe
    Excel Datei nur von einer Person löschbar: Moin, wir hatten eine Datei wo mehrere Personen etwas eintragen. Jetzt hat sie einer gelöscht und ist nicht mehr auffindbar. Gibt es eine Möglichkeit, das nur eine Bestimmte Person Exceldateien...
  6. 1.Excel soll 100 Excel-Tabellen überprüfen

    in Microsoft Excel Hilfe
    1.Excel soll 100 Excel-Tabellen überprüfen: Hallo zusammen, In unserem Unternehmen erhalten wir die Aufträge in Form einer Excel-Tabelle mit etwa 8 Seiten. Jährlich haben wir durchschnittlich 500 Aufträge. Das Hauptproblem besteht darin,...
  7. Excel Datei langsam

    in Microsoft Excel Hilfe
    Excel Datei langsam: Hallo zusammen, leider ist meine Datei seit einigen Daten sehr langsam geworden. Ich habe in den VBA mal was geändert, was das automatische aktualisieren der Pivot Tabellen angeht. Ich kenne...
  8. Excel komplett graue Oberfläche

    in Microsoft Excel Hilfe
    Excel komplett graue Oberfläche: Hallo, bei einigen meiner Excel-Dateien erscheint nur noch eine graue Oberfläche ohne jeden Eintrag. ich habe nicht die Seitenumbruchvorschau eingestellt, die Ansicht steht auf Normal. Wer kann...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden