Now fungiert irgendwie wie ein End Sub..
30.03.2021 11:53:41
Martin
irgendwie führt es nicht die Zeilen nach "Cells(8, 10).Value = Now" aus.... als wäre da bereits das End Sub
Füge ich die Zeile oben ein, geht es!
Private Sub PresseGeschlossen_Click()
Cells(8, 10).Value = Now
MsgBox "123"
Cells(8, 16).Value = Cells(8, 10).Value + TimeSerial(0, Cells(10, 4).Value, 0) 'Fügt Presszeit _
hinzu
End Sub