Dann versuch doch das mal, Einstein:
A1 als Uhrzeit formatieren
Dim s As String, a a = 1 / 2 s = CStr(a) Range("A1") = s Range("B1").FormulaLocal = "=A1*2"