waarde als tijd

[vaneijk]

Goedemorgen allen op het forum,

Ik ben bezig met een userform te maken. Nou ben ik helaas niet zo'n enorme expert hierin dus hopenlijk kunnen jullie mij helpen met waarschijnlijk iets simpels voor jullie.

Het probleem is het volgende. Ik heb een listbox gemaakt in mijn userform, moment dat ik hierop klik geeft hij in diverse textboxen de waardes aan zoals gewenst, de cliëntgegevens, adres, datum, etc. alleen de tijd geeft hij weer in een waarde.

Nu zeg ik met mijn code Me.TextBox2.Value = Format(ListBox1.Column(2))

Kan iemand mij vertellen waarom krijg ik een waarde en niet de tijd? en hoe kan ik dit verhelpen?

mvg,

E.

 

[edmoor]

Dir waarde is wat werkelijk in de cel staat. Datum en tijd zijn gewoon getallen. In een werkblad worden deze op de juiste manier gepresenteerd, tenzij anders aangegeven. Je Format opdracht lijkt niet compleet. Maak er eens dit van:
Me.TextBox2.Value = Format(ListBox1.Column(2), "hh:mm")

Plaats anders je document.

 

[vaneijk]

Vandaag, 08:20edmoor
Dir waarde is wat werkelijk in de cel staat. Datum en tijd zijn gewoon getallen. In een werkblad worden deze op de juiste manier gepresenteerd, tenzij anders aangegeven. Je Format opdracht lijkt niet compleet. Maak er eens dit van:
Me.TextBox2.Value = Format(ListBox1.Column(2), "hh:mm")

dankjewel edmoor voor de snelle reactie. Dit had ik ook geprobeerd maar dan geeft hij alsnog 0,463888888888889 weer in mijn textbox

 

[gast0660]

Zo misschien?

Me.TextBox2.Value = ListBox1.Column(2).Value
Me.TextBox2.Value = Format(TextBox2,"hh:mm")

 

[vaneijk]

ik snap er niets meer van, in het volledige orginele bestand geeft hij de waarde aan, in het bestand wat ik snel aan het maken ben om te uploaden doet hij het goed kan het komen doordat de tijdswaarde in 1e instantie door een ander userform wordt weggeschreven?? Ik zet namelijk eerst alle gegevens op het tabblad dmv een ander userform, hier laat ik de tijd automatisch inladen en dan wegschrijven, en dit 2e userform wil ik die tijd inladen en dan gaat het fout :S

 

[edmoor]

0,463888888888889 = 11:08:00
Wat ik al eerder zei, plaats je bestand.

 

[vaneijk]

Hierbij het ingekorte probleempjeBekijk bijlage TIJD.xlsb

 

[vaneijk]

ik zit te zoeken en te doen maar ik kan de oorzaak van het probleem niet vinden... Als ik een nieuw bestand maak met precies hetzelfde erin dan doet hij het goed me de tips die me net door jullie zijn gegeven.. maar het bestand is momenteel al zo uitgebreid dat ik het niet zie zitten om opnieuw te beginnen door dit probleem

 

[gast0660]

Deze doet het in uw vbtje

Private Sub TextBox2_Change()
Me.TextBox2.Value = Format(TextBox2, "hh:mm")
End Sub

 

[vaneijk]

ja dit lost het probleem op. Hartelijk dank voor uw script gast0660, edmoor ook hartelijk dank voor uw reacties