Re: Excel Zelle als Stoppuhr
04.05.2003 21:46:19
007
Noch was
Option Explicit
'Tabelle
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)If Target.Address = "$B$5" Then
Call ZeitStarten
End If
If Target.Address = "$D$5" Then
Call ZeitEnden
Call ZeitAnzeige
End If
End Sub
---------------
Option Explicit
'Modul
Dim sw As New clsStopWatch
Sub ZeitStarten()
sw.StartTimer
End Sub
Sub ZeitEnden()
sw.EndTimer
End Sub
Sub ZeitAnzeige()
Dim Differenz
Differenz = sw.EndTimer
MsgBox Differenz & " Millisekunden gestoppt"
Range("$F$5") = Differenz
End Sub
-------------------
Option Explicit
'Klassenmodul
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private lngStartTime As Long
Public Sub StartTimer()
lngStartTime = timeGetTime
End Sub
Public Function EndTimer() As Long
EndTimer = timeGetTime - lngStartTime
End Function
Public Sub ShowTimer()
Dim ms As Integer, s As Integer, d As Integer, h As Integer, m As Integer, tmpTime As Long
tmpTime = EndTimer
d = tmpTime \ 86400000: tmpTime = tmpTime Mod 86400000
h = tmpTime \ 3600000: tmpTime = tmpTime Mod 3600000
m = tmpTime \ 60000: tmpTime = tmpTime Mod 60000
s = tmpTime \ 1000: tmpTime = tmpTime Mod 1000
ms = tmpTime
MsgBox d & " D, " & h & "h:" & m & "m:" & s & "s:" & ms & "ms"
End Sub
Gruss 007