Eigenschap combobox wijzigen

[HJ25]

Hallo,
ik heb een combobox in een UserForm staan waarbij uit een lijst een tijd geselecteerd kan worden. Helaas geeft hij wanneer ik een tijd selecteer niet de tijd aan, maar het deel van de dag dat op dat tijdstip voorbij is. Bij 12:00 uur geeft hij dus 0,5 aan. Waar kan ik dit veranderen? Welke eigenschap moet ik veranderen?

 

[snb]

een illustratiebestand was handig geweest. Nu is het niet duidelikjk of je het over de combobox hebt of de weergave in het werkblad.

werkblad: de opmaak van de cel;
userform, combobox : in de gebeuerteniscode van de combobox

 

[HJ25]

Bij deze het bestand met het probleem er in.
Welke is dat precies? En waar moet ik dat naar wijzigen?

 

[HJ25]

Tot op heden nog steeds niet gelukt om er voor te zorgen dat wanneer ik een tijd aanklik die tijd er ook komt te staan en niet een getal tussen de 0 en de 1... Iemand die kan aangeven wat ik precies moet aanpassen om dit goed te krijgen?

 

[snb]

Vermijd Rowsource.

Voor allerlei voorbeelden (waaronder het antwoord op je vraag) zie:
http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[HJ25]

snb bedankt voor de link, maar op de één of andere manier krijg ik het niet voor elkaar dat het werkt. Ik heb nu wel een andere code die werkt, alleen wordt 12:00 uur aangegeven als 0:00. Hoe kan ik dit oplossen? En is er niet een code waarbij ik meerdere comboboxen aan kan geven zodat hij deze meteen allemaal aanpast? Ik heb er namelijk nogal veel...

Private Sub ComboBox177_Change()
    ComboBox177.Value = Format(ComboBox177.Value, "h:mm")
End Sub

 

[OctaFish]

Eén h is 12-uurs notatie, en dan is 12:00 dus 0:00. Twee h-tjes is 24-uur notatie.

Private Sub ComboBox177_Change()
    ComboBox177.Value = Format(ComboBox177.Value, "hh:mm")
End Sub

Kun je simpeltjes nakijken als je in de help naar Notatie zoekt; dan zie je alle varianten.

 

[HJ25]

Bedankt voor je reactie. Helaas krijg ik nog steeds hetzelfde probleem... Ik snap ook nog steeds niet hoe ik de combobox kan vullen zonder rowsource te gebruiken... Bij deze ook maar een voorbeeldbestand.

 

[OctaFish]

Als de kolom waarin je de waarden zet de juiste opmaak niet heeft, dan werkt het natuurlijk ook niet. En je gebeurtenis helpt daar ook niet echt bij, want de lijst is dan al ingelezen. Je moet de lijst dus ofwel inlezen met de Initialize van het formulier, ofwel de kolom opmaken.

 

[HJ25]

Oke dan wil ik dat proberen via de initialize. Moet dat dan op onderstaande manier ofzo? Ik heb de lijst die er in moet komen "Begintijden" genoemd.

Private Sub UserForm_Initialize()
ComboBox177.List ("Begintijden")
End Sub