Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
16.05.2024 19:06:22
Monatssumme / Zahlweise / Kalenderjahr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1964to1968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1964to1968
1964to1968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeiterfassung per Button

Zeiterfassung per Button
21.02.2024 09: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
Anzeige
AW: Zeiterfassung per Button
21.02.2024 11: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
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige