title image


Smiley Re: Execl automatisch beenden
Hallo Stefan,

in das Klassenmodul "Diese Arbeitsmappe":



Option Explicit

Dim Verzoegerung As Date

Private Sub Workbook_Open()

    Verzoegerung = Time + TimeSerial(0, 1, 0)

    Application.OnTime Verzoegerung, "beenden"

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Verzoegerung = Time + TimeSerial(0, 1, 0)

    Application.OnTime Verzoegerung, "beenden"

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Verzoegerung = Time + TimeSerial(0, 1, 0)

    Application.OnTime Verzoegerung, "beenden"

End Sub

Code eingefügt mit Syntaxhighlighter 1.14



in ein "normales Modul":



Option Explicit

Public Sub beenden()

    ThisWorkbook.Save

    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close

End Sub

Code eingefügt mit Syntaxhighlighter 1.14



Aber, eine Minute ist schon sehr knapp und wenn du gerade am eingeben bist, dann wird die Mappe trotzdem geschlossen. Denke an die Legastheniker die nicht so schnell mit tippen sind.

Gruß

Nepumuk
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: