ich brauch eure fachliche Hilfe.
Kann man die Zeit (=Time) bei Beginn und Ende auf eine halbe Stunde
Auf. oder Abrunden
If IsEmpty(Target.Offset(0, -4)) And Target.Value = "Ende" Then
Target.Offset(0, -3).Value = Time (Runden)
Exit Sub
End If
If IsEmpty(Target.Offset(0, -4)) And Target.Value = "Beginn" Then
Target.Offset(0, -4).Value = Date
Target.Offset(0, -5).Value = Date
Target.Offset(0, -2).Value = Time (Runden)
Exit Sub
Freundliche Grüße
Jörn