tijd in plaats van kommagetal

[driverautoband]

goeie middag allemaal
ik heb een vraag ik heb een formulier waar ik bepaalde gegevens mee kan opvragen en dat werkt goed alleen zit er ook een gedeelte bij waar er een tijd moet komen maar er kom ee komma getal te staan ik weet dat er een aantal dagen geleden ook zoiets was maar ik kom dar niet in uit misschien dat jullie een oplossing hebben dit is de kode in iedergeval het gaat om dat stukje van "gegmachinistvan en gegmachinisttot en gegconducteurvan en gegconducteurtot"

Private Sub haalgegevensop_Click()
Dim code As Range

With Worksheets("HC")
Set code = .Range("B7:B500").Find(gegsong, LookIn:=xlValues, lookat:=xlWhole)
If Not code Is Nothing Then
gegdag.Text = .Range("A" & code.Row)
gegmachinist.Text = .Range("H" & code.Row)
gegconducteur.Text = .Range("I" & code.Row)
gegannika.Text = .Range("J" & code.Row)
gegboek.Text = .Range("L" & code.Row)
gegsongnummer.Text = .Range("C" & code.Row)
gegmachinistvan.Text = .Range("V" & code.Row)
gegmachinisttot.Text = .Range("W" & code.Row)
gegconducteurvan.Text = .Range("E" & code.Row)
gegconducteurtot.Text = .Range("F" & code.Row)
gegannikavan.Text = .Range("C" & code.Row)
gegannikatot.Text = .Range("C" & code.Row)
End If

End With
End Sub

bedankt in iedergeval

 

[Spiderman]

Hoi driverautoband,

Probeer dit eens. (bij alle .Range)

.Range("E" & code.Row).[B]text[/B]

OF

.Range("E" & code.Row).[B]value[/B]

P.S. de celeigenschappen moet ook op datum staan.

 

[driverautoband]

het werkt spiderman thanks

die .text pakte gelijk goed :thumb:
ik ben er ik weet niet hoelang meebezig geweest

groeten rene