tijd 12:00 in textbox word 00:00 in cel

[Rudi13]

Beste forumleden,

Ik ben bezig met een programma in excel, maar stuit op een probleem welke ik niet terug kan vinden op internet of het forum.

Het is me gelukt via de onderstaande code diverse gegevens op te halen vanuit werkbladen en userforms echter wordt in de textbox waar de tijd 12:00 staat 00:00 weergegeven. elder heb ik dit ook, maar hier doet hij dit niet.

Hieronder mijn code. Het is de 11de regel van textbox 75

Hopelijk is dit voldoende informtie.

groetjes Rudi

Private Sub CommandButton2_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim sheet As String

sheet = TextBox95.Value
Set ws = Worksheets(sheet)
ws.Activate

For Each C In Range("C1:BF2" & Cells(Rows.Count, 1).End(xlUp).Row)
            If C.Value = TextBox1.Value Then
TextBox65.Value = C.Offset(2, 0).Value
TextBox65.Text = "Gebracht om: " & Format(TextBox65.Text, "hh:mm")
TextBox66.Value = C.Offset(3, 0).Value
TextBox66.Text = "Gebracht om: " & Format(TextBox66.Text, "hh:mm")
TextBox67.Value = C.Offset(4, 0).Value
TextBox67.Text = "Gebracht om: " & Format(TextBox67.Text, "hh:mm")
TextBox68.Value = C.Offset(5, 0).Value
TextBox68.Text = "Gebracht om: " & Format(TextBox68.Text, "hh:mm")
TextBox69.Value = C.Offset(6, 0).Value
TextBox69.Text = "Gebracht om: " & Format(TextBox69.Text, "hh:mm")
TextBox70.Value = C.Offset(7, 0).Value
TextBox70.Text = "Gebracht om: " & Format(TextBox70.Text, "hh:mm")
TextBox71.Value = C.Offset(8, 0).Value
TextBox71.Text = "Gebracht om: " & Format(TextBox71.Text, "hh:mm")
TextBox72.Value = C.Offset(9, 0).Value
TextBox72.Text = "Gebracht om: " & Format(TextBox72.Text, "hh:mm")
TextBox73.Value = C.Offset(10, 0).Value
TextBox73.Text = "Gebracht om: " & Format(TextBox73.Text, "hh:mm")
TextBox74.Value = C.Offset(11, 0).Value
TextBox74.Text = "Gebracht om: " & Format(TextBox74.Text, "hh:mm")
TextBox75.Value = C.Offset(12, 0).Value * 24
TextBox75.Text = "Gebracht om: " & Format(TextBox75.Value, "h:mm")
TextBox76.Value = C.Offset(13, 0).Value
TextBox76.Text = "Gebracht om: " & Format(TextBox76.Text, "hh:mm")
TextBox77.Value = C.Offset(14, 0).Value
TextBox77.Text = "Gebracht om: " & Format(TextBox77.Text, "hh:mm")
TextBox78.Value = C.Offset(15, 0).Value
TextBox78.Text = "Gebracht om: " & Format(TextBox78.Text, "hh:mm")
TextBox79.Value = C.Offset(16, 0).Value
TextBox79.Text = "Gebracht om: " & Format(TextBox79.Text, "hh:mm")
TextBox80.Value = C.Offset(17, 0).Value
TextBox80.Text = "Gebracht om: " & Format(TextBox80.Text, "hh:mm")
TextBox81.Value = C.Offset(18, 0).Value
TextBox81.Text = "Gebracht om: " & Format(TextBox81.Text, "hh:mm")
TextBox82.Value = C.Offset(19, 0).Value
TextBox82.Text = "Gebracht om: " & Format(TextBox82.Text, "hh:mm")
TextBox83.Value = C.Offset(20, 0).Value
TextBox83.Text = "Gebracht om: " & Format(TextBox83.Text, "hh:mm")
TextBox84.Value = C.Offset(21, 0).Value
TextBox84.Text = "Gebracht om: " & Format(TextBox84.Text, "hh:mm")
TextBox85.Value = C.Offset(22, 0).Value
TextBox85.Text = "Gebracht om: " & Format(TextBox85.Text, "hh:mm")
TextBox86.Value = C.Offset(23, 0).Value
TextBox86.Text = "Gebracht om: " & Format(TextBox86.Text, "hh:mm")
TextBox87.Value = C.Offset(24, 0).Value
TextBox87.Text = "Gebracht om: " & Format(TextBox87.Text, "hh:mm")
TextBox88.Value = C.Offset(25, 0).Value
TextBox88.Text = "Gebracht om: " & Format(TextBox88.Text, "hh:mm")
TextBox89.Value = C.Offset(26, 0).Value
TextBox89.Text = "Gebracht om: " & Format(TextBox89.Text, "hh:mm")
TextBox90.Value = C.Offset(27, 0).Value
TextBox90.Text = "Gebracht om: " & Format(TextBox90.Text, "hh:mm")
TextBox91.Value = C.Offset(28, 0).Value
TextBox91.Text = "Gebracht om: " & Format(TextBox91.Text, "hh:mm")
TextBox92.Value = C.Offset(29, 0).Value
TextBox92.Text = "Gebracht om: " & Format(TextBox92.Text, "hh:mm")
TextBox93.Value = C.Offset(30, 0).Value
TextBox93.Text = "Gebracht om: " & Format(TextBox93.Text, "hh:mm")
TextBox94.Value = C.Offset(31, 0).Value
TextBox94.Text = "Gebracht om: " & Format(TextBox94.Text, "hh:mm")

End If
Next
End Sub

 

[E v R]

Eerst plaats je de waarde in een Textbox om er vervolgens tekst van te maken, dit kan ook in 1 keer, afhankelijk van jouw waarde in C.offset(12,0) lijkt mij die *24 de boosdoener

 

[Rudi13]

Beste Erik,

In het eerder bestand stond *24 er niet bij en ook toen hetzelfde resultaat.
De op te zoeken waarde is 12:00 niets meer niets m,inder. Waarbij celeigenschappen in die cel ook aangepast zijn naar tijd.

toch bedankt

 

[E v R]

Plaats anders eens een gelijkend voorbeelbestandje

 

[snb]

TextBox94.Value = TextBox94.Text

for j=65 to 95
   me("TextBox" & j)=Format(C.Offset(j-63).Value, "hh:mm")
next

 

[Rudi13]

Beste snb, is het zo dat alle textboxen nu wel iedere keer 1 cel naar beneden gaan? Ik ben aan het werk dus kan helaas niet gelijk testen of het werkt. Ook voorbeeldbestand wordt nu vanaf hier lastig. Ga het vanavond testen en als het niet lukt plaats ik een voorbeeld bestand.
bedankt alvast

 

[Rudi13]

12:00 wordt weergegeven als 00:00

Hierbij een voorbeeld bestand van mijn probleem.

Als je op tabblad januari gaat staan en dubbelklikt op kay word er een userform geopend.
Als je nu op combobox 2 klikt zouden de tijden van tabblad januari. moeten verschijnen.

Dit gaat goed behalve op het moment dat de tijd in een cel in tabblad januari. 12:00 is. De waarde die dan wordt weergegeven is dan 00:00.

Ik krijg hetmaar niet uitgezocht waarom dit is.

het te uploaden bestand is 350kb kan het niet uploaden iemand anders daar een oplossing voor?

Hopelijk kunnen jullie mij hierbij helpen.

Dank je wel alvast,

 

[snb]

zippen en/of niet-relevante zaken verwijderen.

 

[Rudi13]

Ik heb de textbox opgezocht waar de waarde uitgehaald word en deze .value op .text gezet en hiermee was het probleem opgelost. toch bedankt allen voor het meedenken