Oproepen Sub met argumenten

[Jemp]

Dit is duidelijk een vraag van een beginner (maar alle begin is moeilijk) :d

Onderstaande gegevens zijn niet reëel maar geven het probleem duidelijk weer.
Op Userform1 staan twee listBox met dezelfde gegevens (ListBox1 en ListBox3).
Na een selectie gemaakt te hebben in ListBox1 (keuze listbox)wordt de waarde (in mijn programma kunnen dat er meerdere zijn) bepaald die in ListBox2 (uitvoer ListBox) moet geplaats worden.
Deze actie is analoog voor ListBox3 (Keuze listbox) en ListBox4 (Uitvoer ListBox).
Het leek mij dan ook logisch om hier een Sub voor te schrijven met argumenten. Als argumenten wil ik "gewoon" doorgeven welke de keuze en uitvoer ListBox zijn.

In Bijl de gebruikte Code .... die "uiteraard" niet werkt.

Met dank voor de aangeboden hulp

 

[huijb]

Te zien aan het attachement heeft dit niets met Visual Basic te maken. Visual Basic is nl. iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[Jemp]

Sorry
Blijkbaar iets te snel gepost.

Bedankt voor het verplaatsen.

Groetjes
Jemp

 

[Jemp]

Met een functie blijkt het beter te gaan

Mijn idee was misschien wel goed ... maar werken deed het niet.
Heb het probleem dan maar opgelost via een functie ... en het werkt.

 

[snb]

'Iets' eenvoudiger

Private Sub ListBox1_Change()
  ListBox2.AddItem IIf(ListBox1.Value = 0, 1, IIf(ListBox1 = 1, 4, 2))
End Sub

Private Sub ListBox3_Change()
  ListBox4.AddItem IIf(ListBox3.Value = 0, 1, IIf(ListBox3 = 1, 4, 2))
End Sub

Private Sub UserForm_initialize()
 ListBox1.List = [row(1:5)]
 ListBox3.List = ListBox1.List
End Sub

 

[Jemp]

Problematiek iets uitgebreid

Het echte probleem is iets complexer dan het voorbeeld dat ik gemaakt had.

Het bijgevoegde programma benadert misschien beter het echte programma dat ik aan het maken ben.
Bedoeling is om op basis van een keuze gemaakt uit ListBox1 (data hernomen in Blad1), de overeenkomstige codes van kolomB van Blad2 weer te geven in ListBox2.
De bijgevoegde code doet wat hij verondersteld wordt te doen ... maar misschien kan dit ook eenvoudiger ?
Wij zijn nooit te oud om te leren!

Groetjes
JP

 

[snb]

Voor afhankelijke validatie en afhankelijke comboboxen zie hier.

 

[Jemp]

snb

Met dank voor de Info :thumb:

Groetjes
JP