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. 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. 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. 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. Hallo,

    danke dafür. Werde es testen und melde mich dann wegen Feedback.
     
    merkurmedium, 23. April 2021
    #7
  8. 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. 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. Hallo Karin,

    Herzlichen Dank für die Hilfe und die Erklärung. Das ist nicht Alltäglich.
     
    merkurmedium, 24. April 2021
    #12
  13. 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. ...........
    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. Maske in freigegeben Excel Datei nutzen

    in Microsoft Excel Hilfe
    Maske in freigegeben Excel Datei nutzen: Hallo wir nutzen in einer Excel die Funktion Maske um Daten einzugeben. Jetzt möchten wir die Datei Freigeben damit mehrere Personen gleichzeitig daran arbeiten können leider ist dann die...
  3. Suche über mehrere Excel-Tabellen und Excel-Dateien

    in Microsoft Excel Hilfe
    Suche über mehrere Excel-Tabellen und Excel-Dateien: Guten Morgen zusammen. Ich habe zu einer Suche mit einem vba-Code eine Frage. Man hat mir freundlicherweise mit einem Code geholfen in einer ExcelDatei in einem Arbeitsblatt nach einem Namen zu...
  4. Excel Blatt von einer Datei in eine andere kopieren

    in Microsoft Access Hilfe
    Excel Blatt von einer Datei in eine andere kopieren: Hallo, ich habe in einer Excel-Datei (Datei1) auf einem Blatt (Blatt1) eine Liste. Basierend auf dieser Liste soll 1. Ein Blatt (Blatt2) aus einer anderen Datei (Datei2) kopiert werden 2. Auf...
  5. Aufgabe (Excel-Datei) lässt sich nicht mehrmals bearbeiten.

    in Microsoft Teams Hilfe
    Aufgabe (Excel-Datei) lässt sich nicht mehrmals bearbeiten.: Nach dem Erstellen einer Aufgabe machen sich die SuS ans Bearbeiten und geben die Datei/Aufgabe ab. Für eine erneute Bearbeitung (innerhalb der zulässigen Bearbeitungsfrist) können die SuS die...
  6. VBA - Zugriff auf Excel Dateien in MS-Teams

    in Microsoft Teams Hilfe
    VBA - Zugriff auf Excel Dateien in MS-Teams: Hallo zusammen, ist es möglich per Excel-VBA auf eine Excel-Datei zuzugreifen die in MS-Teams liegt? Der Prozess soll wie folgt aussehen: 1) Datei Status in MS Teams abrufen (ist die Datei...
  7. Excel Datei auf Teams von mir selbst gesperrt

    in Microsoft Teams Hilfe
    Excel Datei auf Teams von mir selbst gesperrt: Hallo ich habe eine Excel Datei auf Teams, die ich gern in Excel direkt bearbeiten möchte. Seit gestern sagt mir das Programm, dass die Datei gesperrt ist, weil sie von mir bearbeitet wird....
  8. Excel Makro - Export zweier Tabellenblätter in separate Datei

    in Microsoft Excel Hilfe
    Excel Makro - Export zweier Tabellenblätter in separate Datei: Hallo in die Runde, ich stehe gerade vor einem Problem, das sicher am einfachsten über ein Makro gelöst werden kann – deren Benutzung ich allerdings nicht wirklich mächtig bin. Eine erste...
  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