Microsoft Excel

Herbers Excel/VBA-Archiv

Millisekunden in Stoppuhrfunktion | Herbers Excel-Forum


Betrifft: Millisekunden in Stoppuhrfunktion von: Albert
Geschrieben am: 04.01.2012 15:26:00

Hallo zusammen,

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 Voraus
Albert

  

Betrifft: AW: Millisekunden in Stoppuhrfunktion von: Josef Ehrensberger
Geschrieben am: 04.01.2012 16:06:14


Hallo Albert,

anbei eine Stoppuhr mit Millisekunden.

https://www.herber.de/bbs/user/78208.xls



« Gruß Sepp »