Warum Double?
Was passiert denn, wenn du es hiermit versuchst?
Option Explicit Sub Zeitversatz() Dim c As Range Dim dtm As Date For Each c In Selection dtm = c.Value 'dtm := dtm - 1[min] dtm = DateAdd("n", -1, dtm) c.Value = dtm Next End Sub