Zeiterfassung wie lange Datei offen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
so z.B.
In "DieseArbeitsmappe"

Option Explicit
Private Sub Workbook_Open()
On Error GoTo Fehler
Dim TB, SP%, LR&
Set TB = Sheets("Tabelle1")
SP = 4 'Spalte D
With TB
If UCase(.Cells(1, 1).Value)  "A" Then Exit Sub ' nur wenn automatisch
LR = .Cells(Rows.Count, SP).End(xlUp).Row + 1 'erste freie Zeile
.Cells(LR, SP) = Now
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fehler
Dim TB, SP%, LR&
Set TB = Sheets("Tabelle1")
SP = 4 'Spalte D
With TB
If UCase(.Cells(1, 1))  "A" Then Exit Sub ' nur wenn automatisch
LR = .Cells(Rows.Count, SP).End(xlUp).Row  'letzte Zeile der Spalte
.Cells(LR, SP + 1) = Now
.Cells(LR, SP + 2) = .Cells(LR, SP + 1) - .Cells(LR, SP)
End With
Me.Save
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub

Tabelle1

	A	B	C	D	E	F	G	H
1	A	Automatisch / Manuell (A) / (M)		Start	Ende	Dauer	00:09:17	Gesamt
2				25.06.2014 11:52:23	25.06.2014 12:00:41	00:08:18
3				25.06.2014 12:02:01	25.06.2014 12:02:29	00:00:28
4				25.06.2014 12:03:42	25.06.2014 12:04:13	00:00:31
5				25.06.2014 12:04:32

verwendete Formeln
Zelle	Formel	Bereich
G1	=SUMME(F:F)

Tabellendarstellung in Foren Version 5.49

Gruß UweD

Option Explicit Private Sub Workbook_Open() On Error GoTo Fehler Dim TB, LR& Set TB = Sheets("Tabelle1") With TB If UCase(.Range("J97").Value) "A" Then Exit Sub ' nur wenn automatisch LR = .Cells(Rows.Count, 12).End(xlUp).Row + 1 'erste freie Zeile .Cells(LR, 12) = Now End With '*** Fehlerbehandlung Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _ Clear End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error GoTo Fehler Dim TB, LR& Set TB = Sheets("Tabelle1") With TB If UCase(.Range("J97").Value) "A" Then Exit Sub ' nur wenn automatisch LR = .Cells(Rows.Count, 12).End(xlUp).Row 'letzte Zeile der Spalte .Cells(LR, 20) = Now .Cells(LR, 28) = .Cells(LR, 20) - .Cells(LR, 12) .Range("AJ97") = WorksheetFunction.Sum(Range("AB98:AB" & LR)) End With Me.Save '*** Fehlerbehandlung Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _ Clear End Sub

Guten morgen Franc,
danke für deine Mühen zu später Zeit.
Ich habe deine Hilfen mal ausprobiert, komme aber zu keinem befriedigenden Ergebniss.
Er zeigt mir immer einen Fehler an. Wenn erst Daten in den Zellen stehen, funktioniert
des ganz gut. Der Anfang ist glaube ich das Problem, der bringt alles durcheinander.
Da mein Wissen in diesem Bereich leider nicht so dolle ist, wollte ich mal fragen, ob du event. mal auf die Datei seghen könntest. dazu gehören zwei weitere Arbeitsblaätter, die ich wegen der Größe
löschen musste.Musste letzendlich fast alles Löschen wegen der Größe
Beim ersten schließen und einsetzen der Zeit macht er in Zelle AJ 97 komische Berechnungen....
Ich wäre dir dankbar.
Ansonsten ein schönen Wochenanfang.
Andreas

Die Datei https://www.herber.de/bbs/user/91322.xls wurde aus Datenschutzgründen gelöscht

Beliebteste Forumthreads (12 Monate)

Zeiterfassung wie lange Datei offen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread