Tijdsnotatie in textbox via userform

[Ghost4t]

Beste forumleden,

Ik heb al uren zitten zoeken hoe ik een tijdswaarde in een tekstbox van een userform kan weergeven.
In bijlage zit een voorbeeld van mijn userform. Wanneer men op de knop drukt in blad, verschijnt er een userform. Als men uit de Combobox links bovenaan een item (ID) aanduid verschijnt woorden de textboxen gevul met de waardes uit blad "Todolijst". Alleen het "startuur" en het "einduur" worden decimaal weergegeven terwijl ik ze graag had zien verschijnen zoals in de tabel die in de "Todolijst" staan, voorbeeld bij item 1 -> startuur 10:14
Kan iemand mij de VBA code hiervoor geven.
Hopelijk is er een helpende ziel? Bedankt!
G.
ps: ik gebruik excel 2010.

 

[edmoor]

Maak er dit van:

TextBox17.Value = Format(Sheets("Todolijst").Range("S2"), "hh:mm")
TextBox18.Value = Format(Sheets("Todolijst").Range("W2"), "hh:mm")

Ik zou trouwens die hele Sub net iets anders schrijven:

Private Sub Combobox3_Change()
    Sheets("Todolijst").Range("N2") = ComboBox3.Text
    If ComboBox3 <> "" Then
        With Sheets("Todolijst")
            TextBox100 = .Range("O2")
            tbStDate = .Range("P2")
            ComboBox500 = .Range("Q2")
            tbEndDate = .Range("R2")
            TextBox17 = Format(.Range("S2"), "hh:mm")
            TextBox18 = Format(.Range("W2"), "hh:mm")
            TextBox8 = .Range("V2")
        End With
    End If
End Sub

Tip:
Verzin ook duidelijke namen voor je objecten om zaken nog duidelijker en makkelijker leesbaar te maken.
TextBox17 en TextBox18 bijvoorbeeld, zou je respectievelijk txtStartUur en txtEindUur kunnen noemen.

Zo zie je dan in de code direct dat het gaat om een textbox en welke functie hij heeft.

 

[Ghost4t]

Hey Edmoor, Thanks! Werk perfect. Kan nu weer verder.
Grts
G.