Datum naar userform krijgen

[jo geuens]

ik heb in mijn werblad een cel waarvan de uuitkomst van de formule een bep.tijd is vb.=K8+M8 (K8 begin uur + M8 Duur)= L8 eind uur
wanneer ik deze gegevens ophaal dan krijg ik in mijn userform een gewoone waarde vb 0.583333333
ik gebruik volgende code om mijn geg. op tehalen

Private Sub Opzoeken_Click()

Set Nr = Worksheets("Planning").Range("A:A").Find(Me.ComboBox4.Value, LookIn:=xlValues, lookat:=xlWhole)
  
 If Sheets("Planning").Range("D" & Nr.Row).Value = "ja" Then Me.OptionButton1.Value = True
      
    Me.TextBox2.Value = Sheets("Planning").Range("B" & Nr.Row) ' aanvrager
    Me.TextBox3.Value = Sheets("Planning").Range("C" & Nr.Row) 'e-mail
    Me.TextBox4.Value = Sheets("Planning").Range("D" & Nr.Row) ' mail
    Me.TextBox5.Value = Sheets("Planning").Range("E" & Nr.Row) 'status
    Me.TextBox6.Value = Sheets("Planning").Range("F" & Nr.Row) 'taak
    Me.TextBox7.Value = Sheets("Planning").Range("G" & Nr.Row) 'omschrijving
    Me.TextBox8.Value = Sheets("Planning").Range("H" & Nr.Row) 'opmerking
    Me.Textbox9.Value = Sheets("Planning").Range("I" & Nr.Row) 'datum begin
    Me.TextBox10.Value = Sheets("Planning").Range("J" & Nr.Row) 'datum eind
    Me.TextBox11.Value = Sheets("Planning").Range("K" & Nr.Row) 'begin uur
    Me.TextBox12.Value = Sheets("Planning").Range("L" & Nr.Row) 'eind uur
    Me.TextBox13.Value = Sheets("Planning").Range("M" & Nr.Row) 'aantal uren
    Me.TextBox14.Value = Sheets("Planning").Range("N" & Nr.Row) 'aantal dagen
    Me.TextBox15.Value = Sheets("Planning").Range("O" & Nr.Row) 'uitvoerder
    Me.TextBox1.Value = Sheets("Planning").Range("P" & Nr.Row) 'compleet
 
End Sub

 

[HSV]

textbox11.value = format([COLOR=#ddbb00]Sheets("Planning").Range("K" & Nr.Row[/COLOR]), "hh:mm")[COLOR=#ddbb00] 'begin uur[/COLOR]

Of:

textbox11.value = cdate([COLOR=#ddbb00]Sheets("Planning").Range("K" & Nr.Row[/COLOR])

 

[jo geuens]

datum naar userform

Hoi Harry Thanx Man Werkt prima

 

[snb]

en gebruik een lus : For....Next