Eingabe während Stopuhr läuft
22.09.2020 16:40:14
Silberkuhl
folgendes Problem:
Ich habe in VBA eine Stopuhr mit "Start", "Pause" und "Reset" programmiert. Diese funktioniert soweit.
Mein Problem ist, dass ich während die Stopuhr läuft, keine anderen Eingaben machen kann.
Mein aktueller Code:
*****************************************************************************************************
Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
Sub Start_timer()
Start_timer:
dteStart = Time
boolStopPressed = False
boolResetPressed = False
Timer_Loop:
DoEvents
dteFinish = Time
dteElapsed = dteFinish - dteStart + dteStopped
If Not boolStopPressed = True Then
Sheets("Andon").Cells(3, "P") = dteElapsed
If boolResetPressed = True Then GoTo Start_timer
GoTo Timer_Loop
Else
Exit Sub
End If
End Sub
*****************************************************************************************************
Sub Stop_timer()
boolStopPressed = True
dteStopped = dteElapsed
End Sub
*****************************************************************************************************
Sub Reset_timer()
dteStopped = 0
dteStart = 0
dteElapsed = 0
Sheets("Andon").Cells(3, "P") = "00:00:00"
boolResetPressed = True
End Sub
*****************************************************************************************************
Folgender Code sollte parallel abgearbeitet werden:
*****************************************************************************************************
Private Sub Workbook_Open()
Application.OnKey "a", "Zaehler"
Application.OnKey "s", "StopStart"
End Sub
*****************************************************************************************************
Wie gesagt, wenn der Timer nicht läuft funktionieren die Subs "Zaehler" und "StopStart".
Kann mir jemand weiterhelfen?
Beste Grüße
Martin