Office: Stoppuhr

modano09 · 10. März 2013

Hallo

Mein Name ist Mike und ich schlage mich seit einigen Tagen mit einer Excel Tabelle bzw. VBA Programmierung rum

Ich benötige eine kleine Zeiterfassung per Excel - als Basis kann die Systemzeit von Windows genommen werden.

Start und Stop der Zeiterfassung - sollten über eine Schaltfläche bedienbar sein.
Die Startzeit und Endzeit werden dann in eine Zeile mit automatischer Nummerierung eingetragen. Die Differenz zwischen Start und Endzeit sollten in einer extra Spalte eingetragen werden

Dann wird bei der nächsten Zeiterfassung automatisch diese in der folgenden Zeile eingetragen usw.

Mit einer Schaltfläche "Reset" sollten alle Zeiterfassung am Ende des Tages
gelöscht werden können

Kennt jemand vielleicht einige Beispiele ?

Gruß und Vielen Dank
Mike

:)

Hajo_Zi · 12. März 2013

Hallo Mike

schaue mal hier
Stoppzeit

EarlFred · 12. März 2013

Hallo Mike,

ein ganz simples Beispiel:
Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim rngLetzteStartzeit As Range

With Worksheets("Tabelle1")
'vorsichtshalber neue Überschriften eintragen:
.Range("A1:D1") = Array("Nummer", "Start", "Stop", "Differenz")
'letzte Zelle mit Eintrag in Spalte B = Startzeit:
Set rngLetzteStartzeit = .Cells(Rows.Count, 2).End(xlUp)
End With

'Wenn die Zelle neben der letzten beschriebenen aus Spalte A leer ist...
'(= keine Stoppzeit zum letzten Eintrag existiert)
If IsEmpty(rngLetzteStartzeit.Offset(, 1)) Then
'...trage eine neue Stoppzeit ein....
rngLetzteStartzeit.Offset(0, 1).Value = Time
'...und berechne die Differenz aus Start- und Stoppzeit
rngLetzteStartzeit.Offset(0, 2).Value = rngLetzteStartzeit.Offset(0, 1).Value - rngLetzteStartzeit.Value
Else
'...andernfalls trage eine neue Startzeit eine Zeile darunter ein:
rngLetzteStartzeit.Offset(1, 0).Value = Time
'und eine neue fortlaufende Nummer
rngLetzteStartzeit.Offset(1, -1).Value = Application.Max(Worksheets("Tabelle1").Range("A:A")) + 1
End If

Set rngLetzteStartzeit = Nothing
End Sub

Private Sub CommandButton2_Click()
'leere Spalten A:D,
'stelle das Zeitformat ein
'und trage die Überschriften in Zeile 1 ein
With Worksheets("Tabelle1")
.Range("A:D").ClearContents
.Range("A:A").NumberFormat = "0"
.Range("B:D").NumberFormat = "hh:mm:ss"
.Range("A1:D1") = Array("Nummer", "Start", "Stop", "Differenz")
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die beiden Subs musst Du nur noch Schaltflächen zuweisen.

Grüße
EarlFred

modano09 · 13. März 2013

Hallo

Vielen Dank für die schnelle Reaktion. Ich habe im Netz jetzt ein Beispiel gefunden was nur noch leicht angepasst würden müsste, vielleicht könnt ihr mir dabei helfen.

Ich habe das Feld Durchschnittsdauer hinzugefügt. Jetzt müsste eine Zeile (H10) tiefer nur doch die Durchschnittsdauer berechnet werden. Das immer automatisch anhand der Anzahl der erfassten Zeiten. (Spalte A)

Beispiel Es sind 3 Zeiten erfasst - Wert in Zelle G10 wird automatisch durch 3 geteilt, wird eine Zeit hinzugefügt wird automatisch der Wert durch 4 geteilt.
usw.

Zum Abschluss wird der Durchschnittswert mit einer Vorgabezeit 6:30min verglichen und die Differenz in der Zelle I10 angezeigt.

Ist der Durchschnittswert niedriger als 6:30 wird die Differenz "grün" dargestellt ist der Durchschnittswert höher als 6:30 wird sie rot dargestellt.

Vielen Dank und Gruß
Mike

Hajo_Zi · 13. März 2013

sehe ich das richtig es geht nicht mehr um ein Stoppzeit?
Ich bin dann raus.

EarlFred · 13. März 2013

Hallo Mike,

deutlich andere Anforderungen - also war meine Schreibarbeit für die Tonne? Prima.

Wende Dich an den Ersteller des Codes, ob er ihn Dir anpasst.

Grüße
EarlFred

Office: Stoppuhr

Stoppuhr

Stoppuhr

Stoppuhr

Stoppuhr - Similar Threads - Stoppuhr

Zeitstempel aus Stoppuhr bei Notizen

Excel als Stoppuhr

Stoppuhr

Stoppuhr einfügen

Eine Art Stoppuhr

Stoppuhr für Makrolaufzeit

Timer (Stoppuhr) in Access