vba vraag

[Ruud700]

hoi helpers
ik moet 20 listbox vullen met de zelfde
is er een betere manier dan 20 x deze het zelfde in geven
als vast bedank

gr ruud

ListBox1.RowSource = "blad1!b3:b12"
ListBox2.RowSource = "blad1!b3:b12"
ListBox3.RowSource = "blad1!b3:b12"
ListBox4.RowSource = "blad1!b3:b12

"

 

[HSV]

Verwijder de rowsource in de eigenschap van de listbox, anders krijg je foutmelding.

for i = 1 to 20
me("listbox"& i).list = sheets(1).range("b3:b12").value
next i

 

[Ruud700]

Hoi Harry

krijg nu fout melding I een variabele niet gedefinieerd

gr ruud

Private Sub UserForm_Initialize()

For i = 1 To 20
Me("listbox" & i).List = Blad(1).Range("b3:b12").Value
Next i



 With Worksheets("Blad1")

        'Mijn gegevens
        TextBox1.Text = .Range("E2")
        TextBox21.Text = .Range("D2")
        

    End With

End Sub

 

[HSV]

Hallo Ruud,

Ik had het ook niet zo geschreven.
Helpt dit?

Me("listbox" & i).List = Blad1.Range("b3:b12").Value

 

[Ruud700]

Harry

blijf de zelfde fout melding geven

gr ruud

 

[Ruud700]

Bekijk bijlage vba.xlsmBekijk bijlage vba.xlsm

 

[HSV]

Private Sub UserForm_Initialize()
[COLOR=#ff0000]Dim i As Long[/COLOR]

Je moet natuurlijk wel 20 listboxen op je formulier hebben staan.

 

[Ruud700]

Hoi Harry

bedankt deze werkt natuurlijk heb ik originele bestand die 20 staan

gr ruud

 

[Warme bakkertje]

Waarschijnlijk staat er helemaal bovenaan je code de regel Option Explicit.
Deze geeft aan dat je elke variabele die je gebruikt in je code moet benoemen alvorens je hem kunt gaan gebruiken.