sandra1978
Gebruiker
- Lid geworden
- 21 feb 2011
- Berichten
- 64
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:
Deze waarden worden weggeschreven in kolommen C en D (na druk op knop afsluiten of knop volgende)
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
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:
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)
Code:
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
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