Zeiterfassung per Button

Forumthread: Zeiterfassung per Button
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeiterfassung per Button

21.02.2024 10:47:52

Klaus1406

Hallo zusammen,

anbei meine Datei.
https://www.herber.de/bbs/user/167201.xlsm

Meine Frage wie bekomme ich das Stempeln nur mit einem Button hin das er automatisch in die nächsten Zellen springt.

Hab schon versucht meine Makros zu ändern leider ohne Erfolg.

Vieleicht kann mir jemand helfen.

Vg Klaus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeiterfassung per Button

21.02.2024 12:00:28

Alwin Weisangler

AW: Zeiterfassung per Button

21.02.2024 12:00:28

Alwin Weisangler

Hallo Klaus,

ich hatte dir zu diesem Thema schon mal auf die Beine geholfen.
Wenn du es mit einem Button willst, brauchst du nur eine Abfrage welche Zellen des aktuellen Tages bereits ein Datum enthalten.
z.B. so:



Sub KommtGeht1()

    Dim i

     With Sheets(Format(Date, "mmmm"))

        For i = 4 To 7

            If .Cells(Format(Date, "d") + 3, i) = "" Then

                .Cells(Format(Date, "d") + 3, i) = Format(Now, "hh:mm")

                Exit For

            End If

        Next i

     End With

End Sub

Gruß Uwe