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

Wäre das besser ?

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
    Application.OnTime EarliestTime:=CloseTime, Procedure:="AutoSpeichernAusschalten", Schedule:=False
    Application.OnTime EarliestTime:=CloseTime, Procedure:="TimeStop", Schedule:=False
End Sub

 

Die Spaltenposition im Code spielt keine Rolle, wichtig ist, dass On Error Resume Next bei diesem Code in ider 1. Zeile steht - das ist also korrekt, aber die letzte und vorletzte Zeilen gibt es bei mir nicht.

---

 

Danke schön

 

Hallo Karin,
sorry das ich keine Rückmeldung gegeben habe.
Du hast recht,das Problem ist noch nicht gelöst.
Wie wird der Code denn nun richtig geschrieben ?

 

Hi,

die Unterschiede zwischen deinem und meinem Code kannst du doch eindeutig sehen, bzw. hatte ich eindeutig darauf hingewiesen - wo also ist das Problem?

---

 

Habe Deinen Code jetzt in ein Modul getan.

 

Warum?!?! Er steht doch im Workbook_BeforeClose und NUR DORT gehört er hin. Wenn du immer etwas anders machst als man dir vorschlägt musst du dich nicht wundern, wenn es nicht funktioniert.

---

 

Hallo Karin,
habe den Code jetzt so geändert wie Du geschrieben hast.
Bekomme dennoch den Fehler wie auf dem Bild zu sehen ist.

Code:

Option Explicit
Private Sub Workbook_Open()
startzeit
Application.OnTime TimeValue("07:29:00"), "Speichern"
Application.OnTime TimeValue("07:31:00"), "copyData"
Select Case Day(Date)
 Case 1, 2, 3, 4
   Tabelle3.CommandButton1.Visible = True
 Case Else
   Tabelle3.CommandButton1.Visible = False
 End Select
  Application.GoTo Tabelle3.Cells(35 * (Day(Date) - 1) + 5, 1), Scroll:=True
  Call CheckeRevisionsnummern
  Call AutoSpeichernEinschalten
  Call copyData
  Application.OnTime Now() + TimeValue("02:00:00"), "Backup_"
End Sub
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
    Ende
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    startzeit                                       ' Prozedur starten
End Sub

 

Hi,

du hast nichts geändert denn
1. heißt mein Code so:

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
Ende
End Sub

2. hatten wir das Problem mit dieser Fehlermeldung doch schon - Lösung siehe meinen Beitrag #9

---

 

Hi, den Code "Dim CloseTime As Date" ist in keinem Makro mehr zu finden. Dieses Makro wurde von mir entfernt. Dafür habe ich das Makro von Hajo zum automatischen schließen benutzt.
Dieses Makro verlangt aber den Eintrag "Ende" in Private Sub Workbook_BeforeClose(Cancel As Boolean). Und auch Call AutoSpeichernAusschalten wird benötigt.
Deshalb komme ich nicht weiter.

 

Hi,

weshalb hast du den Code gelöscht? Dann musst du dich auch nicht wundern, wenn ein Fehler auftritt. Und wenn ich mich richtig erinnere, stand dort auch nicht "Dim CloseTime..." sondern "Public CloseTime..."
Wie ist denn in deinem jetzigen Code die Variable "startzeit" definiert und wie wird sie mit einen Wert belegt? Der Code den du gepostest hast ist sicher nicht der komplette Code.

---

 

Hallo,
habe das Makro gelöscht weil es nicht zuverlässig funktioniert hat. Daher bin ich auf das Makro von Hajo umgestiegen.
Hier der Code aus dem Makro:

Code:

Option Explicit                                     ' Variablendefinition erforderlich
'**************************************************
'* H. Ziplies                                     *
'* 12.08.10                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/                          *
'**************************************************
' Excel - Datei (mit VBA) bei Inaktivität automatisch beenden?
Dim DaEt As Date                                    ' Zeitpunkt zum prüfen
Public Const DaZeit As Date = "00:05:10"            ' Zeitabstand prüfen

Sub startzeit()
    On Error Resume Next                            ' Fehlerbehandlung ausschalten
    ' Makro anhalten
    Application.OnTime EarliestTime:=DaEt, Procedure:="Schließen", Schedule:=False
    On Error GoTo 0                                 ' Fehlerbehandlung einschalten
    DaEt = Now + DaZeit                             ' neue Startzeit setzen
    Application.OnTime DaEt, "Schließen"            ' Makro zum Zeitpunkt starten
End Sub

Sub Schließen()
    ThisWorkbook.Close True                         ' Datei schließen mit speichern, False ohne speichern
End Sub

Sub Ende()
    ' Makro anhalten
    Application.OnTime EarliestTime:=DaEt, Procedure:="Schließen", Schedule:=False
End Sub
' In diesem Beilspiel wird die Mappe geschlossen, wenn innerhalb
' der mit DaZeit festgelegten Zeit keine Selection
' auf einem Tabellenblatt erfolgt.
' Die Mappe wird dabei gespeichert. Soll dies nicht der Fall sein,
' ändere bei .Close True in False.

 

Hi,

schau doch einfach mal in den vorhergehenden Beiträgen nach, WO und WIE die Variable "CloseTime" definiert und belegt werden soll - den Teil musst du wieder an die richtige Position im gesamten Code einfügen. Wenn du Codeteile löschst, musst du dich nicht wundern, wenn Fehler auftreten.

---

 

Hallo,
leider kann ich Dir nicht folgen.
Beziehe mich hier auf Beitrag#5. Code 1 ist noch vorhanden sowie auch Code 2. Nur Code 3 welcher die Datei nicht zuverlässig geschlossen hat und in ich den Code auf Dein anraten auf Public CloseTime As Date geändert habe,ist nicht mehr da.
Dafür ist ja das Makro von Hajo eingesetzt worden.

 

Hi,

wir reden wie die Katze um den heißen Brei, da du mich nicht verstehen willst, obwohl ich nun schon mehrfach geschrieben habe was du machen sollst - belassen wir es dabei wie es jetzt ist.

---