---

Hej

Jeg sidder med et excel ark hvortil jeg laver lidt vba.

Jeg sidder dog med et problem.

Jeg har et par kodestumper som jeg skal genbruge mange gange.

Bl.a.

Public Function SaetVaerdier(Fra As Integer, Til As Integer, Valg As
Integer, liste As ListBox)
For I = Fra To Til
liste.AddItem I
Next I
liste.Selected(Til - Valg - 1) = True
liste.Selected(Til - Valg - 1) = False
End Function

Som det kan ses så skal der sendes en listbox til funktionen som den
skal kunne arbejde med. Men hvordan kalder man en sådan funktion.

For jeg har eksempelvis en listbox på en form der hedder lstspm2 men
jeg kan jo ikke skrive
SaetVaerdier 1,5,3,lstspm2

Er der nogel der ved hvordan dette gøres?

mvh
Dennis

---

"Dcasso" <ikke@oplyst_pga_spam.dk> skrev i en meddelelse
news:7sqstuo8k337vhd75gthbdtpe6ijkn9oap@4ax.com...
> Hej
>
> Jeg sidder med et excel ark hvortil jeg laver lidt vba.
>
> Jeg sidder dog med et problem.
>
> Jeg har et par kodestumper som jeg skal genbruge mange gange.
>
> Bl.a.
>
> Public Function SaetVaerdier(Fra As Integer, Til As Integer,
Valg As
> Integer, liste As ListBox)

ByRef liste As ListBox


--
/\ preben nielsen
\/\ prel@post.tele.dk

---

>ByRef liste As ListBox

Det virker desværre ikke.

Jeg tror ikke problemet ligger der, fordi efter min viden så vil byref
altid være standardværdien hvis andet ikke er specificeret.

Jeg har leget lidt videre og problemet ser ud til at være når jeg
kalder den, så vil den ikke acceptere navnet som værende listboksen
(ved ik præcist hvordan jeg skal kalde fkt'en med listboksen), den
tager den i stedet som en tom variabel.

Nogle der har et par hints.

mvh
Dennis