Zeit zwischen Mausklicks

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim Klicks As Integer Dim s_Time As Date Private Sub UserForm_Initialize() s_Time = Now() End Sub Private Sub UserForm_Click() AddKlick End Sub Private Sub CommandButton1_Click() AddKlick End Sub Private Sub CommandButton2_Click() AddKlick End Sub Private Sub SchließenButton_Click() AddKlick Ergebnis Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Ergebnis End Sub Private Sub AddKlick() Klicks = Klicks + 1 End Sub Private Sub Ergebnis() Dim t As Date AddKlick t = Now - s_Time MsgBox Klicks & " Klicks in " & Format(t, "s") & " Sekunden" End Sub

Hallo Lars,
ok, hier ein geänderter Code mit Kommentaren:


Option Explicit
'Variablen gelten Modulweit:
Dim Klicks As Integer
Dim s_Time As Date
'Dein "bestimmter Button", der gezählt werden soll
Private Sub CommandButton1_Click()
If s_Time = 0 Then s_Time = Now 'Startzeit beim ersten Klick setzen
Klicks = Klicks + 1
'hier dann dein Code
End Sub
'Der Button, der das UF Schließt
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
'Startzeit auf Null
s_Time = 0
Klicks = 0
End Sub
'Ereignis, das beim Beenden des UF ausgelöst wird:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'CloseMode=0, wenn UF übers Schließkreuz geschlossen wird
'CloseMode=1, wenn UF über Unload-Befehl geschlossen wird
If CloseMode <= 1 Then Ergebnis
End Sub
'wird beim Beenden der UF aufgerufen
Private Sub Ergebnis()
Dim t As Date
't = Zeit von ersten Klicj auf deinen Button bis zum Schließen des UF
If s_Time = 0 Then
t = 0
MsgBox Klicks & " Klicks"
Else
t = Now - s_Time
MsgBox Klicks & " Klicks in " & t
End If
End Sub

Gruß Matthias

Hi,
mir ist zwar schleierhaft, wozu das gut sein soll, aber bitte:
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private datTime() As Date

Private Sub CommandButton1_Click()
    datTime(UBound(datTime)) = Time
    Redim Preserve datTime(0 To UBound(datTime) + 1)
End Sub

Private Sub UserForm_Activate()
    Redim datTime(0)
End Sub

Private Sub UserForm_Terminate()
    Dim lngIndex As Long
    Dim datClickTime As Date
    For lngIndex = 0 To UBound(datTime) - 2
        datClickTime = datClickTime + datTime(lngIndex + 1) _
            - datTime(lngIndex)
    Next
    MsgBox "Durchschnittszeit zwischen zwei Klicks: " & _
        Format(datClickTime / (UBound(datTime) - 1), _
        "hh:mm:ss"), 64, "Information"
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeit zwischen Mausklicks

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread