hoe kan ik met CTRL+T de tijd in de actieve cel laten invoeren?

[frospi]

Dag allemaal,

Ik heb een macro in gebruik die de datum invult in de actieve cel wanneer ik op CTRL+D druk. Deze macro is als volgt:

Sub Macro3()
'
' Macro3 Macro
' De macro is opgenomen op 19-8-2009 door Frospi.
'
' Sneltoets: CTRL+d
'
ActiveCell.FormulaR1C1 = "=TODAY()"

End Sub

Dit zelfde wil ik voor de tijd maar dan met CTRL+T. Als resultaat krijg ik dan bijvoorbeeld 9:16. Ik kon geen formule vinden die ALLEEN de tijd weergeeft op deze manier.

Heeft iemand het antwoord?

 

[krolik]

ActiveCell.FormulaR1C1 = Format(Time, "h:m")

 

[robdgr]

Anders:

Sub Macro2()
'
' Macro2 Macro


'
    ActiveCell.FormulaR1C1 = "=NOW()"
    Selection.NumberFormat = "h:mm;@"
End Sub

 

[frospi]

Bedankt allemaal,

Heb het nu voor elkaar met de manier van Rob, precies wat ik wou. :thumb:

Thanks