Stoppuhr stoppt nicht
13.02.2013 17:35:37
Albert
ich verwende folgenden Code für eine Stoppuhrfunktion.
Die Funktion beinhaltet einen LOOP und das While bstop = False sollte das Ganze wieder stoppen. Das tut es aber nicht.
Wisst ihr vielleicht eine Möglichkeit, woran/worin der Fehler liegt?
Private Sub Zeitmessung_Click()
'Dim bstop As Double (Ein Versuch, das bstop zu deklarieren)
If Zeitmessung.Value = False Then _
With Zeitmessung
.Caption = "Zeitaufnahme starten"
End With
bstop = False
End If
If Zeitmessung.Value = True Then
bstop = False
With Zeitmessung
.Caption = "Zeitaufnahme stoppen"
End With
Do
DoEvents
Range("G1") = (Timer - dblT) / 100
DoEvents
Loop While bstop = False
End If
End Sub
LG
Albert