Arbeitszeittabelle mit Userform
06.10.2020 16:17:16
hans
möchte über 2 Userformen durch eine meine Startzeit und die andere meine Endzeit eintragen lassen.
Die erste Schaltfläche soll das heutige Datum in Spalte B und die Startzeit in Spalte C eintragen. Die zweite Schaltfläche in Spalte D die Endzeit.
Jedes Mal wenn ein Arbeitstag eingetragen ist soll in die nächste spalte gesprungen werden.
Meine Anfänge sehen so aus:
Sub Schaltfl?che1_Klicken()
Dim letzte As Long
With Worksheets("Tabelle1") 'Blattname anpassen
letzte = Application.Max(5, .Cells(Rows.Count, 2).End(xlUp).Rows + 1)
.Cells(letzte, 2) = Date
.Cells(letzte, 3) = Format(Time, "hh:mm:ss")
.Cells(letzte, 4).Select
End With
End Sub
Sub Schaltfl?che2_Klicken()
Dim letzte As Long
With Worksheets("Tabelle1") 'Blattname anpassen
letzte = Application.Max(5, .Cells(Rows.Count, 2).End(xlUp).Rows + 1)
.Cells(letzte, 4) = Format(Time, "hh:mm:ss")
.Cells(letzte, 5).Select
End With
End Sub
Beim Probieren des Codes springt er in Zeile 44111.
Wie muß das Script aussehen das es funktionert?
Danke Gruß Hans