Timer
Michael
mit folgendem Code will ich die Zeit herausfinden wielange XL Datei geöffent ist.
Public myTime
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dauer = Time - myTime 'NoW?
MsgBox "Sie haben " & Dauer & " gearbeitet."
End Sub
Private Sub Workbook_Open()
myTime = Time
End Sub
Es klappt leider nicht so richtig mit der Ausgabe...
Wie formatiere ich diese?
Gruß
Michael
Anzeige