Tijd notatie

[Theknurt]

Hallo mede VBA'ers.

Ik haal een waarde op uit een sheet. Dit is een tijdsnotatie b.v. 37:30:30.
Nu wil ik deze waarde plaaten in een textbox.

Nu krijg ik daar alleen een standaard waarde te zien, t.w. 1.562847222

Heb al zitten stoeien met Cdate en Format, alleen als de waarde hoge wordt dan 24:00:00 uur, gaat het mis.

dit zijn de voorbeelden:
vl = Worksheets(keuze).Range("s69")
vl = Format(vl, ":mm")
vl = CDate(Format(vl, "hh:mm"))
vl = CDate(vl)

Wie kan mij een eind op weg helpen ??

GR. Bart

 

[Wigi]

Je moet dat getal eens met 24 vermenigvuldigen.

 

[Theknurt]

Je moet dat getal eens met 24 vermenigvuldigen.

Hee Wigi,

Ook dat heb ik geprobeerd, echter dat is net niet de bedoeling.

Ik zou graag willen dat dezelfde tijdsnotatie in de Textbox terecht komt....

197:00 in excelblad.......197:00 in textbox...... met hele getallen lukt het nu wel....
Maar als er 197:45 uur is........... kom je met de vermenigvuldiging op 197,75......

Is daar nog een oplossing voor te verzinnen ??

txs anyway...

Gr. BArt

 

[Wigi]

En wat als je

Sheets(keuze).Range("S69").Text

in de textbox zet?

 

[Theknurt]

En wat als je

Sheets(keuze).Range("S69").Text

in de textbox zet?

Hee wigi,

Dat is inderdaad de oplossing. Werkt perfect.

gR. bart

 

[Wigi]

Allé, weeral iemand tevreden!

Graag gedaan. Zet wel de vraag nog op opgelost aub.