textvak in formaat "hh:mm". Excel herkent niet als "hh:mm"

[sandra1978]

Hallo,

Ik heb een userform gemaakt 'ingavelesmomenten'.
In de tekstvakken 'vanuur1' en 'totuur' wordt een tijdstip ingevuld in het formaat 'hh:mm'. Ik heb dat zo aangegeven in code:

Private Sub vanuur1_afterupdate()

vanuur1 = Format(vanuur1, "hh:mm")
End Sub

Deze waarden worden weggeschreven in kolommen C en D (na druk op knop afsluiten of knop volgende)

Private Sub lm1_afsluiten_Click()

ThisWorkbook.Sheets("uurrooster").Range("b" & (ActiveCell.Row)).Value = Me.Lesdag1
ThisWorkbook.Sheets("uurrooster").Range("c" & (ActiveCell.Row)).Value = Me.vanuur1
ThisWorkbook.Sheets("uurrooster").Range("d" & (ActiveCell.Row)).Value = Me.totuur1
ThisWorkbook.Sheets("uurrooster").Range("e" & (ActiveCell.Row)).Value = Me.Pauze1
ThisWorkbook.Sheets("uurrooster").Range("h" & (ActiveCell.Row)).Value = Me.Lesplaats1
ThisWorkbook.Sheets("uurrooster").Range("i" & (ActiveCell.Row)).Value = Me.lokaal1

IngaveLesmomenten.Hide
End Sub

In kolom F staat een formule waarbij op basis van C en D, bepaald wordt of het over een V, N of A gaat (voormiddag, namiddag, avond).
Wanneer C en D handmatig worden ingevuld, krijg ik een resultaat in kolom G.
Wanneer C en D via het userform worden ingevuld, krijg ik geen resultaat in kolom G.
Enig idee wat ik kan aanpassen?
De celeigenschappen staan ook correct als 'tijd'.

https://gofile.io/d/kbQwvN

alvast bedankt

 

[edmoor]

Doe het eens zo:

ThisWorkbook.Sheets("uurrooster").Range("c" & (ActiveCell.Row)).Value = [COLOR="#FF0000"]TimeValue([/COLOR]Me.vanuur1)
ThisWorkbook.Sheets("uurrooster").Range("d" & (ActiveCell.Row)).Value = [COLOR="#FF0000"]TimeValue([/COLOR]Me.totuur1)

 

[sandra1978]

hoi Edmoor,

Super, dat werkt!
Snel gefixed zo

Merci

Groetjes

 

[snb]

Of laat VBA het werk doen

Private Sub lm1_afsluiten_Click()
   ActiveCell.offset(,1).Resize(,8) = array(Lesdag1,vanuur1,totuur1,Pauze1,mid("VNA",vanuur\4-1,1),"",Lesplaats1,lokaal1)

IngaveLesmomenten.Hide
End Sub

Je kunt beter met de paperclip een bestand hier in het forum plaatsen.