rowsource uren gaat niet juist

[ewezel]

Goedemiddag helpers.

Heb een probleem met het inladen van de Rowsource uren, zodra ik in de combobox 12:00 selecteer verandert deze in 00:00.

heb een voorbeeldje bijgesloten iemand een idee.

bij voorbaat dank Erwin

 

[Warme bakkertje]

Test de bijlage eens.

 

[ewezel]

Hoi Rudi,

ook deze gaat niet goed op het moment van selecteren verandert de tijd in 00:00

met vriendelijke groet erwin

 

[Warme bakkertje]

Dan heb jij een andere XL dan ik, want wat ik ook doe , bij mij blijft hij lekker de waarden van P1 en P2 weergeven.

 

[ewezel]

hoi Rudi,

excel 2010 heb ik jouw bestand geeft bij mij wel een foutmelding.

1004 methode sheets van object global mislukt had deze er even tussenuit gehaald en dan werkt ie niet.
Weet jij hoe dit kan ?

erwin

 

[Warme bakkertje]

Op welke regel krijg je deze foutmelding ?

 

[ewezel]

eerste regel sheets("gegevensblad").activate

Het aanvraagfrm wordt bij openen bestand niet geopend

 

[snb]

Gebruik nooit additem om een combobox of listbox te vullen:

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Date, "dd-mm-yyyy")

    cbobegin.List = [index(text(time(7,15+15*row(1:55),0),"hh:mm"),)]
    cboeind.List = cbobegin.List
End Sub[

Vermijd 'Select' en 'Activate' in VBA.

 

[ewezel]

hallo snb,

ook deze doet het niet bij het verlaten van de combobox wordt de tijd weergegeven als 00:00 i.p.v. 12:00

groeten erwin

 

[Warme bakkertje]

Het wel of niet activeren v/h werkblad heeft geen enkele invloed op de werking v/d macro en is zelfs overbodig.
Ik heb geen XL2010 dus kan niet testen maar door de simpelheid v/d code zie ik niet in waar het met mijn voorbeeldbestand fout zou kunnen lopen.

 

[ewezel]

Hoi Rudi,

is snap het ook niet. In de lijst laat excel de waarde 12:00 wel zien als ik deze waarde selecteer en de combobox verlaat wordt het 00:00.
et de code van snb rekent excel wel goed met waarde 12:00 maar laat in het userform ook bij het verlaten van de combobox de waarde 00:00 zien.

iemand een oplossing :shocked:

 

[Warme bakkertje]

Maar in mijn voorbeeldbestand maak ik GEEN gebruik v/d lijst op het werkblad dus ????

 

[pasan]

probeer deze is, om de tijden weer te geven heb ik de code van snb gebruikt (die ik gisteren op het internet had gevonden maar helaas de link niet heb opgeslagen) en aangepast om de uren weer te geven zoals jij die in jou lijst had staan
heb meer code regels aangepast van jou oorspronkelijke code
Ik gebruik ook 2010 en bij mij werkt het

 

[ewezel]

Hoi Pasan,

bij mij krijg ik een fout bij openen van jouw bestand.

fout 381 kan eigenschap list niet instellen ongeldige index voor eigenschappenmatrix.

groet erwin

 

[ewezel]

@ Rudi,

ja dat zag ik maar toch wordt in het userform de tijd niet juist weergegeven geen 12:00 maar 00:00

snap het ook niet meer.

 

[pasan]

als ik het bestand download/opsla en meteen open krijg ik die fout melding ook
maar als ik het bestand sluit en daarna open, gaat het goed
maar deze foutmelding was al in jou originele bestand

 

[ewezel]

Hoi Pasan,

inderdaad geweldig :thumb::thumb::thumb::thumb: dat is wat ik wou bereiken.

vriendelijk bedankt hij gaat op opgelost

 

[pasan]

de code voor de tijdsaanduiding kom van snb dus alle eer komt hem toe

 

[snb]

Er kon nog wel iets aan verbeterd worden. Zie de bijlage.

Het wegschrijven naar het werkblad kan het beste via de verstuurknop.

 

[ewezel]

Goedemorgen snb,

bedankt voor de aanpassingen ga deze is toepassen in het eigenlijke bestand.

:thumb::thumb::thumb:

groeten erwin