Stoppuhr - Code
12.07.2007 23:09:10
Frank
Ich habe eine Stoppuhr in meine Tabelle integriert.
(http://www.online-excel.de/excel/singsel_vba.php?f=96)
soweit klappt alles wie geplant, jedoch schreibt das beigefügte Makro die Endzeit - wenn man auf Stopp drückt mit in die Tabelle ein. Diese Funktion möchte ich nicht. Kann mir jemand sagen, wie ich sie deaktiviere?
Private Sub prc_Stop()
Dim intIndex As Integer
If blnPause Then _
lngStartTime = lngStartTime + (timeGetTime - lngPauseTime)
ActiveCell.Value = fnc_strTime(timeGetTime - lngStartTime)
KillTimer lnghWnd, 0
For intIndex = 1 To 3
objCommandBarButton(intIndex).Enabled = False
Next
objCommandBarButton(5).Caption = ActiveCell.Text
ActiveCell.Offset(1, 0).Select
End Sub
Zum Abschluss möchte ich die laufende Zeit der Stoppuhr größer darstellen - evtl. in dem Arbeitsblatt an sich oder einer Userform etc.
Gruß Frank
Anzeige