ListBox Probleem

[AatB]

Geacht Forum,

In een UserForm1 heb ik een listbox waar ik de gegevens welke in een tabblad staan gebruik.

ik geef met

ListBox6.Selected(2) = True

dat een regel als default waarde geselecteerd wordt.

Een macro onder een OK knop zorgt ervoor dat de waarde (UserForm1.ListBox6) in een cel gezet worden.

Het komt nu voor dat deze waarde soms wel en soms niet meegenomen wordt naar de cel.

Als ik in de listbox een keer van waarde wissel, dan wordt de waarde wel altijd meegenomen.

Kunnen jullie mij helpen.....


mvg,

Aat

 

[Roncancio]

Hmm, het zou aan de macro kunnen liggen, maar als het wel altijd doet als je een andere keuze maakt in de lijst, lijkt dat nogal onwaarschijnlijk.

De aansturing ...

ListBox6.Selected(2) = True

... zou ik zelf niet gebruiken. Eerder...

ListBox6.Value = ListBox6.List(2)

Wellicht dat hiermee al je probleem is opgelost.

Met vriendelijke groet,


Roncancio

 

[AatB]

Hmm, het zou aan de macro kunnen liggen, maar als het wel altijd doet als je een andere keuze maakt in de lijst, lijkt dat nogal onwaarschijnlijk.

De aansturing ...

ListBox6.Selected(2) = True

... zou ik zelf niet gebruiken. Eerder...

ListBox6.Value = ListBox6.List(2)

Wellicht dat hiermee al je probleem is opgelost.

Met vriendelijke groet,


Roncancio

Helaas, het haalt niets uit......

Als ik op de default waarde klik dan komt de waarde wel in de cel (dus ik verander niet van waarde in de lijst)

 

[snb]

Een macro onder een OK knop zorgt ervoor dat de waarde (UserForm1.ListBox6) in een cel gezet worden.

Ik word nieuwsgierig naar die code want daar zit het probleem.

 

[AatB]

Hoi snb,

hierbij de code.....

het zijn 4 listboxen en ik krijg de data niet constant in mijn sheet.
Als ik de defaultwaarden aanklik, dan staan ze wel in de sheet.
De velden Code, LeadTime, OrderType en ResolveGroup worden onregelmatig gevuld.

Ik roep ze in de macro aan met:

Code = "'" & NewOrder.ListBoxChangeGroup.Value & "'"
LeadTime = Val(NewOrder.ListBoxLeadTime.Value)
OrderType = "'" & NewOrder.ListBoxOrderType.Value & "'"
ResolveGroup = "'" & NewOrder.ListBoxResolveGroup.Value & "'"

Private Sub UserForm_Initialize()
    
   'Change Group
    ListBoxChangeGroup.RowSource = shtData & "!" & Range(ctChangeList).CurrentRegion.Address
    ListBoxChangeGroup.Value = ListBoxChangeGroup.List(0)
    
     'LeadTime
    ListBoxLeadTime.RowSource = shtData & "!" & Range(ctLeadTimeList).CurrentRegion.Address
    ListBoxLeadTime.Value = ListBoxLeadTime.List(0)
        
    'Order Type
    ListBoxOrderType.RowSource = shtData & "!" & Range(ctOrderTypeList).CurrentRegion.Address
    ListBoxOrderType.Value = ListBoxOrderType.List(0)
     
    'Resolving Group
    ListBoxResolvingGroup.RowSource = shtData & "!" & Range(ctResolveList).CurrentRegion.Address
    ListBoxResolvingGroup.Value = ListBoxResolvingGroup.List(2)
    
End Sub

 

[Wigi]

Simpel voorbeeldbestandje...?

 

[AatB]

Je probeert van alles.....

als ik in de macro het volgende doe, dan gaat het wel goed... ra, ra....

Code = "'" & NewOrder.ListBoxChangeGroup.Column(0) & "'"
LeadTime = Val(NewOrder.ListBoxLeadTime.Column(0))
OrderType = "'" & NewOrder.ListBoxOrderType.Column(0) & "'"
ResolveGroup = "'" & NewOrder.ListBoxResolveGroup.Column(0) & "'"

in ieder geval bedankt voor jullie moeite....

Aat