Hallo,
ich möchte ein Makro in VBA schreiben, welches misst, wie lange der Benutzer eine Taste auf der Tastatur drückt. Wenn die Taste erneut gedrückt wird, soll die Zeit dazuaddiert werden.
Da ich neu in VBA bin, habe ich noch Probleme mit der Syntax, bzw. dem Funktionsaufruf. Gefunden habe ich diese Funktionen hier https://msdn.microsoft.com/en-us/library/aa445497(v=vs.60).aspx , aber scheine sie falsch zu benutzen.
Mein Code bis jetzt:
Sub KeyTime()
Time_old = 0
Range("A1").Value = Time_old
If Form_KeyDown(vbKeySpace, 0) Then
Start_time = Timer
If Form_KeyUp(vbKeySpace, 0) Then
End_time = Timer
Time = End_time - Start_time + Time_old
Time_old = Time
Range("A1").Value = Time_old
End If
End If
End Sub
|