Start_timer:
    dteStart = Time   'Wird gesetzt wenn bei Workbook_SheetSelectionChange
 
Timer_Loop:
    DoEvents
    dteFinish = Time
    If dteStart = "00:00:00" Then GoTo Start_timer
    dteElapsed = dteFinish - dteStart + dteStopped 'Verstrichene Zeit 
    ' vergleichen
 
     If dteElapsed > "00:00:15" Then         'Wenn Zeit zu lange dann raus
        ThisWorkbook.Save                   ' Datei speichern
       If Workbooks.Count = 1 Then _
        Application.Quit Else _
        ThisWorkbook.Close                  'Excel bzw arbeitsmappe schließen 
        End If
 
    End If
 
 
    End If
End Sub