Data in textbox userform is in verkeerd formaat

[samabert]

Hallo,

Bij openen van het Userform zie je in het label LB_01 de data te zien van de tabel van werkblad MBE.
Bij click in de lijst op een datum krijg je de data terug in het Userform textboxen.

Probleem, de start en stop tijd die normaal in formaat: (hh:mm) moet worden weergegeven, is nu zichtbaar in decimaal. Userform textbox T_22 & T_23
Kan dit worden opgelost dat je de tijd ook krijgt zoals het formaat in de tabel? Voorbeeld 20:32 of 06:20.
Bij het wegschrijven van data naar de tabel vanuit het userform werkt het wel juist.

Het laden van de data uit de tabel gebeurt met:

Private Sub UserForm_Initialize()
    On Error Resume Next

    T_19.Value = Format(Date, "dd/mm/yyyy")
    T_20.SetFocus
    LB_01.List = [Data].Value
    [Data].AutoFilter

End Sub

Bij click in het label, met volgende code:

Private Sub LB_01_Click()

CMBnew2.Visible = False


    T_19 = LB_01.Column(0)
    T_20 = LB_01.Column(1)
    T_22 = LB_01.Column(2)
    T_23 = LB_01.Column(3)
    T_25 = LB_01.Column(5)
    
End Sub

Alvast bedankt.
Marc

 

[edmoor]

Maak er voor de tijden dit van:

T_22 = Format(LB_01.Column(2), "HH:MM")

 

[HSV]

een methode is eerst de listbox vullen en daarna het formaat wijzigen.

Private Sub UserForm_Initialize()
    On Error Resume Next


    T_19.Value = Format(Date, "dd/mm/yyyy")
    T_20.SetFocus
    
[COLOR=#0000ff]   With LB_01[/COLOR]
[COLOR=#0000ff]    .List = [Data].Value[/COLOR]
[COLOR=#0000ff]    For i = 0 To .ListCount - 1[/COLOR]
[COLOR=#0000ff]         .List(i, 2) = Format(.List(i, 2), "hh:mm")[/COLOR]
[COLOR=#0000ff]         .List(i, 3) = Format(.List(i, 3), "hh:mm")[/COLOR]
[COLOR=#0000ff]         .List(i, 4) = Format(.List(i, 4), "hh:mm")[/COLOR]
[COLOR=#0000ff]      Next i[/COLOR]
[COLOR=#0000ff]    End With[/COLOR]
  [Data].AutoFilter
End Sub

 

[edmoor]

Hetzelfde, maar dan iets eerder. Da's wel beter

 

[HSV]

Maak niet uit ed,

Ik meende dat ik las dat het om de listbox ging.

 

[edmoor]

Ik begreep dat het om de tekstboxen ging. Met jouw methode is werkt het goed voor beide

 

[samabert]

@ edmoor,

Werkt volledig. :thumb:
Enorm bedankt.

 

[samabert]

@ HSV,

Heb jouw oplossing ook getest en werkt ook volledig.
Jullie brengen vlugger een oplossing dan dat ik problemen kan bedenken.
Jij ook bedankt.