Mit folgendem Modul kann ich per Doppelklick auf eine Zelle dort die aktuelle Uhrzet eintragen. Wie muß der Code verändert werden, damit dann die aktuelle Zeit zuzüglich 40 Minuten eingetragen wird?
-----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeit As String
zeit = Right(Now(), 8)
ActiveCell.FormulaR1C1 = zeit
Selection.NumberFormat = "hh:mm:ss"
End Sub
-----
Gruß, Ralf-Eckhard