Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook beforeClose

Workbook beforeClose
13.01.2018 10:49:56
Erik
Hallo zusammen,
ich habe eine Tabelle die automatisch nach 30 Sek. (wenn keine Eingabe erfolgt)
abspeichern und schließen soll.
Wenn ich meine Tabelle von Hand mit X schließe, funktioniert soweit alles.
Wenn sie automatisch schließt überschreibt Excel aber nur die eigentliche Datei führt aber nicht mehr die Funktionen die unter:
Private Sub Workbook BeforeClose(Cancel As Boolean)
stehen aus.
Wie kann ich meine Tabelle abändern das auch nach den besagten 30 Sek. die Datei mit Sicherungskopie gespeichert wird.
Wenn Excel nach dem Speichern noch komplett Schließen würde (nicht nur die Mappe) wäre alles perfekt.
https://www.herber.de/bbs/user/118921.xlsm
Vielen lieben Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook beforeClose
13.01.2018 14:04:46
fcs
Hallo Erik,
es ist unter manchen Umständen problematisch Datei-Aktionen in den Ereignis-Makros der Arbeitsmappe auszuführen, wenn dieses Ereignis per Makro ausgelöst wird.
In deinem Fall wird es nur funktionieren beide Methoden des Schliessens der Datei (Makro + manuell) abzudecken, indem die Anweisungen, die vor dem Schliessen der Datei ausgeführt werden sollen, in ein "normales" Makro ausgelagert werden.
Dieses Makro wird dann ausgeführt vor der Anweisung zum automatischen Schliessen.
Zusätzlich wird eine Public-Variable gesetzt, dass Auto-Schliessen erfolgte.
Im Workbook_BeforeClose-Ereignis-Makro wird diese Variable geprüft und nur beim manuellen Schliessen werden die entsprehenden Anweisungen vor Schliessen ausgeführt.
Die Quit-Anweisung zum Schliessen von Excel kann man am Ende von Workbook_BeforeClose einfügen.
Hier deine Datei angepasst.
https://www.herber.de/bbs/user/118927.xlsm
Änderungen sind:
Im Modul mdlAutoClose
  • Sub DateiCloseAktionen
    Neues Makro, hier sind die früheren Anweisungen aus WorkBook_BeforeClose eingebaut mit Anpassungen:
    - Application-Events werden während der Aktionen vorübergehend deaktiviert. So werden während des Sortierens die AutoClose-Makros nicht erneut gestartet.
    - Sicherheitskopien werden mit SaveCopyAs erstellt statt mit SaveAs
    - Datei wird nach dem Sortieren gespeichert.

  • Public bolAutoClose As Boolean
    Neue Variable um zu speichern, dass das automatische Schliessen der Datei ausgeführt wird.

  • Sub AutoClose()
    Hier wird bei automatischem Schliessen jetzt die Variable bolAutoClose gesetzt und das neue Makro "DateiCloseAktionen" ausgeführt

    • unter DieseArbeitsmappe
  • Sub Workbook_BeforeClose
    nur noch diese beiden Anweisungen:
    If Not bolAutoClose Then Call DateiCloseAktionen
    Application.Quit

    • Gruß
    Franz
    Anzeige
    AW: Workbook beforeClose
    15.01.2018 09:07:32
    Erik
    Hallo Franz,
    das scheint wunderbar zu funktionieren. Teste es weiterhin!
    Vielen lieben Dank.
    Das hätte ich ohne Deine Hilfe nie geschafft.
    Gruß
    Erik

    85 Forumthreads zu ähnlichen Themen

    Probleme mit Add In Subs bei Workbook_BeforeClose
    Lou

    Hallo Gemeinde,
    bin neu hier, also erstmal Hallo! an alle.
    Ich kämpfe im Moment mit folgendem Problem und finde keine Lösung:
    Ich habe viele benutzdefinierte Funktionen und Prozeduren als EXCEL AddIn gespeichert. Die Benutzung aus geöffneten EXCEL-workbooks funktioniert auch wunderb...
    15.08.2008 00:53:00
    Thread-ID: 1002006
    5 Beiträge
    Anzeige
    WorkBook_BeforeClose
    Daniel

    Hallo,
    ich habe eine CheckBox in meiner Datei, die ich gerne beim Schließen
    der Datei auf False setzen möcht, sodass sich das Häkchen entfernt.
    Wie geht das? Hier mein erfolgloser Versuch:
    Private Sub WorkBook_BeforeClose(Cancel As Boolean) CheckBox1 = False End Sub
    grüße...
    27.04.2009 15:13:02
    Thread-ID: 1071394
    10 Beiträge
    Workbook before close
    Kirsche

    hallo leute,
    nachdem ich den ganzen tage recherchiert habe und nicht wirklich weiter gekommen bin, baue ich auf eure hilfe.
    ich habe eine datei, welche beim schließen auf die tabelle "Start" zurück springen soll, dann soll in der tabelle "Start" in H65535, C25, C26 der wert gelöscht wer...
    22.11.2009 19:14:02
    Thread-ID: 1119253
    13 Beiträge
    Anzeige
    Workbook_BeforeClose
    AgeO

    Hallo, liebe Excel-Freunde.
    Ich habe bitte folgendes Problem und bitte um eure Hilfe.
    Ich habe unter ’DieseArbeitsmappe’ folgenden Code: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close savechanges:=False 'oder auch ThisWorkbook.Close savechanges:=False End S...
    30.06.2010 12:27:13
    Thread-ID: 1164685
    3 Beiträge
    Unterbinden von WorkbookBeforeClose
    Andreas X

    Ich suche einen VBA-Befehl, mit dem ich bewirken kann, dass das WorkbookBeforeClose-Makro beim Schließen der Datei NICHT gestartet wird. Gibt es sowas?Mit Dank im Voraus,
    Andreas
    30.04.2002 14:38:41
    Thread-ID: 117479
    3 Beiträge
    Problem mit "Workbook_BeforeClose"
    Harald

    Hallo zusammen,
    weiß jemand warum der folgende Code zum Öffnen einer bestimmten Datei im
    Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks.Open Filename:="C:\Test\TESTDATEI.xls", UpdateLinks:=3 End Sub nicht funktioniert?
    Gruß, Harald
    20.01.2011 20:14:37
    Thread-ID: 1196615
    11 Beiträge
    Private Sub Workbook_BeforeClose
    Scot

    Liebe Leute
    Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
    Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
    22.09.2011 13:56:18
    Thread-ID: 1231079
    11 Beiträge
    Überblick: Workbook_/Auto_Close/BeforeClose
    Andreas X

    Hilfe Hilfe,
    kann mir jemand mal einen Überblick geben über die VBA-Befehle:a) Workbook Close
    b) Workbook BeforeClosec) Auto Close
    d) Auto BeforeClose1. Was sind die Unterschiede in der Anwendung und Wirkung?
    2. Muss ich die in VBA in die "Arbeitsmappe" setzen oder in ein Modul?
    ...
    07.06.2002 19:26:23
    Thread-ID: 126984
    2 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    4
    15
    9
    12
    1
    2
    2
    10
    10
    1
    3
    2
    4
    6
    2
    2
    5
    7
    2
    4
    3
    5
    3
    4
    4