Hej,

För att lösa första kan man använda två procedurer (jag utgår ifrån att värdet förändras med hand och inte med kod):

Dim val As String

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Cells(1, 1)) Is Nothing Then

    Cells(1, 3).Value = val

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Cells(1, 1)) Is Nothing Then

    val = Cells(1, 1)

End If

End Sub

Den andra kan lösa med hjälp av sin egen Now function:

Public Function NowCustom() As String

NowCustom = Now

End Function

Tyvärr tror jag inte att det finns ett sätt att göra det du vill utan VBA. Jag kan hjälpa dig med VBA. Det är ju inte så svårt alls med det du vill uppnå.