Tijdwaarden

[Jack Nouws]

Hallo

Ik heb een ComboBox die gevuld is met tijd waarden. Wanneer ik bv: 07:00:00 aanklik dan krijg ik een hele andere waarde in m'n Cbo, hoe kan ik dat veranderen?

Met vr gr
Jack

 

[trucker10]

Hallo

Ik heb een ComboBox die gevuld is met tijd waarden. Wanneer ik bv: 07:00:00 aanklik dan krijg ik een hele andere waarde in m'n Cbo, hoe kan ik dat veranderen?

Met vr gr
Jack

Eens proberen om de waarde *1 te doen ?

Werkt niet !!! heb het zonet getest je krijgt 0,2916666 te zien , sorry .

link naar een mogelijk oplossing

 

[Jack Nouws]

Eens proberen om de waarde *1 te doen ?

Kijk eens even in mijn bijlage AUB
Als je op Begintijd klikt krijg je netjes de tijdwaarden te zien zodra er een tijdnotatie is aangeklikt verandert deze waarde, en dat wil ik juist niet. Ik wil nl deze waarde weer verder in mijn document gebruiken.

Met vr gr
Jack

 

[trucker10]

Kijk eens even in mijn bijlage AUB
Als je op Begintijd klikt krijg je netjes de tijdwaarden te zien zodra er een tijdnotatie is aangeklikt verandert deze waarde, en dat wil ik juist niet. Ik wil nl deze waarde weer verder in mijn document gebruiken.

Met vr gr
Jack

Ik heb zonet een link gepost in mijn vorige post .
Ik had het bij mijn test ook bemerkt dat de tijden ( waarden ) veranderen

 

[Hoornvan]

Jack Nouws,

Kan het zijn dat het hier aan licht?

7-1-1900  7:00:00

hier worden de ComboBoxen mee gevuld.

 

[Roncancio]

@Hoornvan
Idd, en de format van de comboboxen moest worden aangepast.

@JackNouws
In bijgevoegd bestand is de layout in orde gemaakt.

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Jack Nouws,

Nu doet hij het goed.

Private Sub CboBT_Change()
    CboBT = Format(CboBT.Value, "hh:mm")
End Sub

Private Sub CboET_Change()
    CboET = Format(CboET.Value, "hh:mm")
End Sub

Private Sub CboPauze_Change()
    CboPauze = Format(CboPauze.Value, "hh:mm")
End Sub

Private Sub CommandButton2_Click()
    Userform1.Show
End Sub

Private Sub UserForm_Initialize()
    With Cbodatum
        .RowSource = "Overzichten" & "!AA2:" & Sheets("Overzichten").Range("AA65536").End(xlUp).Address
        Cbodatum.Value = "Kies Maand"
    End With
    With CboBT
        .RowSource = "Overzichten" & "!AB2:" & Sheets("Overzichten").Range("AB65536").End(xlUp).Address
        CboBT = "Begin Tijd"
    End With
    With CboET
        .RowSource = "Overzichten" & "!AC2:" & Sheets("Overzichten").Range("AC65536").End(xlUp).Address
        CboET.Value = "Eind Tijd"
    End With
    With CboPauze
        .RowSource = "Overzichten" & "!AD2:" & Sheets("Overzichten").Range("AD65536").End(xlUp).Address
        CboPauze.Value = "PAUZE"
    End With
End Sub

Roncancio was me voor.

 

[Jack Nouws]

Jack Nouws,

Ik heb het op deze manier voor elkaar gekregen.Maar nu is mijn vraag, wat is het verschil tussen die code van jullie en van mij.

Met vr gr jack

Private Sub UserForm_Initialize()
Dim Cel As Range

    With Cbodatum
        .RowSource = "Overzichten" & "!AA2:" & Sheets("Overzichten").Range("AA65536").End(xlUp).Address
        Cbodatum.Value = "Kies Maand"
    End With
    
With CboBT
        CboBT.Clear
            For Each Cel In Sheets("Overzichten").Range("$AB$2:$AB$98")
            CboBT.AddItem Format(Cel.Value, "hh:mm")
        Next
End With

With CboET
        CboET.Clear
            For Each Cel In Sheets("Overzichten").Range("$AC$2:$AC$98")
            CboET.AddItem Format(Cel.Value, "hh:mm")
        Next
End With

With CboPauze
        CboPauze.Clear
            For Each Cel In Sheets("Overzichten").Range("$AD$2:$AD$49")
            CboPauze.AddItem Format(Cel.Value, "hh:mm")
        Next
End With

End Sub

 

[Roncancio]

Het verschil is dat je 1 voor 1 de cellen langsloopt en in de comboboxen plaatst in het juiste formaat, terwijl onze code verwijst naar de tijden als brongegevens en dat bij het wijzigen het juiste formaat wordt weergegeven.


Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Het verschil is dat je 1 voor 1 de cellen langsloopt en in de comboboxen plaatst in het juiste formaat, terwijl onze code verwijst naar de tijden als brongegevens en dat bij het wijzigen het juiste formaat wordt weergegeven.


Met vriendelijke groet,


Roncancio

Dus het maakt niet veel uit welke code je dan gebruikt?

Met vr gr
Jack

 

[Roncancio]

Qua uitkomst niet, maar qua snelheid is het aan te bevelen om de tijden in 1 keer in de comboboxen te zetten.
Je werkt nu namelijk met een lus terwijl dat niet nodig is.

Met vriendelijke groet,


Roncancio