Zeiten erfassen
09.10.2002 21:17:47
Rolf St
Ich habe dieses tolle Makro bei Hans Herber auf der CD gefunden.
Folgende Änderungswünsche habe ich:
- eine laufende Uhr ab gestartete Zeit in E1 (nicht die Zeit der Systemuhr)
- ist das stoppen von 100derstel und 1000sentel auch möglich h:mm:ss,00 z.B. 1:22:33,25
- ist es möglich, das wenn der Start erfolgt die Anfangzeit in D1 geschrieben wird und die
Zwischenzeiten immer E1 D1 berechnet werden und fortlaufend in Spalte D3:D1000 geschrieben werden
Module: basMain
Option Explicit
Sub Start()
Time = Now + TimeValue("00:00:01")
Range("A2:C" & Rows.Count).ClearContents
Range("D1") = Time
End Sub
Sub schreiben()
Dim intRow As Integer
intRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(intRow, 3) = Time
Cells(intRow, 4) = Cells(intRow, 3) - Range("D1")
End Sub
Sub Stopp()
On Error Resume Next
Application.OnTime Time, "Start", , False
End Sub