Millisekunden in Stoppuhrfunktion
Albert
ich verwende für ein Projekt ein Stoppuhr-Makro von Hajo. Da für dieses Projekt sind aber auch Millisekunden notwendig, was ich mit der Erweiterung der Zeitformatierung hh:mm:ss.00 versucht hab.
Leider funktionierts nicht wirklich. Weiß von euch jemand, wie ich dies bewerkstelligen könnte?
Im Modul:
Option Explicit
Public DaZeit As Date
Public DaEt As Date
Sub StopAnzeige()
' Abschalten der Prozedur ZeigenZeit
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="ZeigenZeit", _
Schedule:=False
End Sub Sub ZeigenZeit()
' abgelaufene Zeit eintragen
ActiveWorkbook.Worksheets.Select
Range("B1") = Time - DaZeit
' Zeit für nächsten Start festlegen, Anzeigeintervall
Selection.NumberFormat = "hh:mm:ss.00"
' Prozedur starten
Application.OnTime DaEt, "ZeigenZeit"
End Sub
Im Tabellenblatt:
Private Sub Cmd_Start_Click()
If Cmd_Start.Caption = "Start" Then
' aktulle Zeit auf Variable
DaZeit = Time
' Inhalt Spalte B löschen
Columns(2) = ""
' ändern der Beschriftung
Cmd_Start.Caption = "Stop"
' laufende Zeit in Zelle B1 starten
ZeigenZeit
Else
' Endzeit eintragen
Range("B1") = Format(Time - DaZeit, "hh:mm:ss.00")
' ändern der Beschriftung
Cmd_Start.Caption = "Start"
' Abschalten der Prozedur ZeigenZeit
StopAnzeige
End If
End Sub
Private Sub Cmd_Zwischen_Click()
Dim LoLetzte As Long
' unabhängig von Excelversion
' für Spalte B (2)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), _
Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count) + 1
' abgelaufene Zeit in Zelle eintragen
Cells(LoLetzte, 2) = Time - DaZeit
End Sub
Vielen Dank im VorausAlbert