Arbeitszeit Zeitstempel/ Hinweis

Hallo miteinander,
letzte Woche wurde mir von Euch schon hervorragend geholfen, vielen Dank hierfür nochmals.
Jetzt hätte ich folgend eine weitere Bitte
Anbei wär mein Prototyp zur Aufzeichnung und Berechnung der Arbeitsstunden für meine Kollegen. Dies geschieht per Kommen und Gehen Button welcher fortlaufend die Zeiten festhält.
https://www.herber.de/bbs/user/95470.xlsm
Dies ist jetzt nur eine sehr abgespeckte Version des Original Sheets. Aufgrund der Datei Größe hab ich die restlichen Tabellen löschen müssen, somit wird hier momentan nicht weiter gerechnet. Für meine Frage/Bitte an Euch ist dies aber auch nicht zwingend nötig.
Dass ich später im laufenden Betrieb nicht all zu viel Nacharbeiten muss hätte ich heute die Bitte, wenn möglich, per VBA ein paar (Warn)Hinweise an den jeweiligen Benutzer zu melden.
Im Klartext bedeutet dies
Dass sich morgens möglichst niemand vergisst anzumelden würde ich dieses Sheet bereits in Autostart reinziehen
Momentan kann man sich aber z.B. x mal anmelden ohne sich abzumelden. Könnte man hier vielleicht ne Meldung aufpoppen lassen Kommen bereits registriert? Genauso beim Gehen Button? Noch Besser wäre z.B. dass man die Buttons Kommen und Gehen nur abwechselnd drücken kann. Oder nur ein Button welcher abwechselnd ne Kommen und Gehenzeit fortlaufend unten festhält. Hiermit wären evtl. Fehlerquellen schon fast komplett ausgerottet J
Wenn sich abends jmd. vergisst abzumelden muß ich am nächsten Tag halt die Eintragung manuell nachholen. Eine Meldung einbauen bevor man den Rechner runterfährt geht ja glaub nicht
Vielen, vielen Dank schon mal für evtl. Lösungsansätze
VG Steffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lZeile As Long lZeile = Cells(Rows.Count, 4).End(xlUp).Row + 1 If Cells(lZeile - 1, 7).Value "" Then Cells(lZeile, 4).Value = Date Cells(lZeile, 5).Value = Time Else MsgBox "Du bist schon gekommen ;-)" End If End Sub Private Sub CommandButton2_Click() Dim lZeile As Long lZeile = Cells(Rows.Count, 8).End(xlUp).Row + 1 If Cells(lZeile - 1, 4).Value "" Then Cells(lZeile, 7).Value = Date Cells(lZeile, 8).Value = Time Else MsgBox "Du bist schon weg!" End Sub

Private Sub CommandButton1_Click() Dim lZeile As Long Dim lZeileGehen As Long lZeile = Cells(Rows.Count, 4).End(xlUp).Row + 1 lZeileGehen = Cells(Rows.Count, 8).End(xlUp).Row + 2 If lZeile = lZeileGehen Then MsgBox ("Gekommen um zu bleiben? ERST abstempeln!") Else Cells(lZeile, 4).Value = Date Cells(lZeile, 5).Value = Time End If End Sub Private Sub CommandButton2_Click() Dim lZeile As Long Dim lZeileKommen As Long lZeile = Cells(Rows.Count, 8).End(xlUp).Row + 1 lZeileKommen = Cells(Rows.Count, 4).End(xlUp).Row If lZeile = lZeileKommen Then Cells(lZeile, 7).Value = Date Cells(lZeile, 8).Value = Time Else MsgBox ("Noch gar nicht da, und schon Feierabend? ERST Einstempeln!") End If End Sub

Private Sub CommandButton1_Click() Dim lZeile As Long lZeile = Cells(Rows.Count, 4).End(xlUp).Row + 1 Cells(lZeile, 4).Value = Date Cells(lZeile, 5).Value = Time CommandButton2.Enabled = True CommandButton1.Enabled = False End Sub Private Sub CommandButton2_Click() Dim lZeile As Long lZeile = Cells(Rows.Count, 8).End(xlUp).Row + 1 Cells(lZeile, 7).Value = Date Cells(lZeile, 8).Value = Time CommandButton2.Enabled = False CommandButton1.Enabled = True End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitszeit Zeitstempel/ Hinweis

3 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)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread