transfer a time value to a userform

[robertvdb]

I have a sheet where certain cells contain time values.

These cells are in are formatted Custom 0\:00

When I rightclick on any of the cells, I want a Userform to appear in which a textbox displays the value of the cell.

For some reason, I cannot get the correct value in this textbox.

 

[DanteAmor]

Try:

On sheet events:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.Show
  Cancel = True
End Sub

On UserForm code:

Private Sub UserForm_Activate()
  TextBox1.Value = Format(ActiveCell.Value, "0\:00") 'Here the format you need.
End Sub

I'm not sure which format you need. So also try the following:

Private Sub UserForm_Activate()
  TextBox1.Value = Format(ActiveCell.Value, "hh:mm")  'Here the format you need.
End Sub

 

[robertvdb]

Thanks Dante, this works well with
Format(ActiveCell.Value, "0\:00")

Cheers.