Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Millisekunden in Stoppuhrfunktion

Millisekunden in Stoppuhrfunktion
Albert
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige