VBA Datei schließt nach Zeit
29.06.2017 05:48:26
Simone
leider wird die zweite Zeile rot.
Public Const DaZeit As Date = "00:01:00"
Code:
Option Explicit ' Variablendefinition erforderlich
Public DaEt As Date ' nächste Starzeit des Makros
Public Const DaZeit As Date = "00:01:00" ' Zeitabstand prüfen
Sub Zeitmakro()
' Zeit in Zelle um 1 Sekunde runtersetzen
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = _
ThisWorkbook.Worksheets("Tabelle1").Range("A1") - CDate("00:00:15")
' Falls Restzeit > 0 dann Makro wiederholen,
' ansonsten Datei schließen mit speichern
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") 0 Then
DaEt = Now + TimeValue("00:00:15")
Application.OnTime DaEt, "Zeitmakro"
Else
' Datei schließen mit speichern, Fals nicht speichern
ThisWorkbook.Close True 'speichern
End If
End Sub
Diese soll die Datei schließen und speichern. Kann man auch noch eine Meldung der hälfte der Zeit einpflegen " Datei wird gleich gespeichert und geschlossen"
Hoffe ihr könnt mir helfen.
-danke
Anzeige