Re: Systemzeit auslesen
07.12.2002 09:51:00
Hajo_Zi
Hallo PhilippDie Frage warum, da kann ich mich nur Peter und Rainer anschließen. Aber darüber mache ich mir keinen Kopf mehr wozu es benötigt wird.
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public ET As Variant
Sub Zeitmakro()
' unter Anleitung von KlauCh
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "Zeitmakro"
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo