Errechneter Zeitwert minus Pause
13.02.2020 15:45:10
Peer
Ich habe in eiern UF Textfelder mit den Anfangs- und Endzeiten (txt_Beginn und txt_Ende) und einem ArbZeit-Textfeld (txt_ArbZeit). Zusätzlich habe ich noch drei Radiobutton, die "keine", "30 min" oder "45 min" von txt_ArbZeit abziehen sollen.
txt_ArbZeit wird durch die Sub AZ_Berechnung (Danke der Hilfe hier im Forum) errechnet.
Sub AZ_berechnung()
Dim Beginn As Date, ende As Date, Summe As Date
If frm_Tag.txt_ArbZ_Beginn = "" Or frm_Tag.txt_ArbZ_Ende = "" Then Exit Sub
Beginn = CDate(frm_Tag.txt_ArbZ_Beginn)
ende = CDate(frm_Tag.txt_ArbZ_Ende)
Application.EnableEvents = False
If Beginn
Private Sub opt_Pause30_Change()
txt_ArbZeit = Format(txt_ArbZeit - TimeSerial(0, 30, 0), "hh:mm")
End Sub
funktioniert nicht (Fehlermeldung Debugger)
Private Sub txt_ArbZeit_Change()
If opt_Pause30.Value = True Then
txt_ArbZeit = Format(txt_ArbZeit - TimeSerial(0, 30, 0), "hh:mm")
End If
End Sub
Hier habe ich auch keinen Erfolg.Vielleicht kann jemand helfen?
Vielen Dank im Voraus
Anbei eine Beispiel-Mappe
https://www.herber.de/bbs/user/135182.xlsm
In den beiden Monats-Sheets im Range B12:B42 mit Rechtsklick die UF öffnen.
LG
Peer