doorgeven waarden bij SUBs

[Stone52]

Hallo,

Ik experimenteer al een tijdje met het doorgeven van waarde(n)
van macro1 naar macro2 naar macro3.

Wie heeft een suggestie.

Ik gebruik op mijn werkblad een opdrachtknop:

Private Sub CommandButton1_Click()

Artikelnr = ""

    ArtikelnrBepalen (Artikelnr)

    SortArtikelnr

    ArtikelnrZoeken (Artikelnr)

End Sub

In ArtikelnrBepalen wordt een artikelnr gevonden en gevuld,
maar niet teruggegeven aan de private sub CB1.

Hoe zorg ik ervoor dat het artikelnr wel in de private sub CB1
wordt "ontvangen" en bruikbaar wordt voor ArtikelnrZoeken ?

 

[Ginger]

Stone52, Je zal je variabele buiten die routine moeten declareren. Dus bovenaan die standaard module. Maak er trouwens sowieso een gewoonte van om je variabelen en constanten te declareren, dat werkt een stuk netter.

Groet, Leo

 

[Roncancio]

Aanvullend op de reactie van Ginger.

[B]Dim Artikelnr As String[/B]
Private Sub CommandButton1_Click()

Artikelnr = ""

    ArtikelnrBepalen (Artikelnr)

    SortArtikelnr

    ArtikelnrZoeken (Artikelnr)

End Sub

Het vetgedrukte is dus toegevoegd.
Ik heb het als String(=tekst)variabele gedeclareerd omdat je de waarde als leeg heb bepaald ipv 0.

Inderdaad is het meer dan een goede gewoonte om variabelen te declareren.

Met vriendelijke groet,


Roncancio

 

[Stone52]

Roncancio en Ginger,

de dim van de Artikelnr as string stond al onder de option explicit genoemd.
van het betreffende werkblad. In de ArtikelnrBepalen sub zie ik dat het
Artikelnr wordt gevuld, maar zodra de besturing weer terugkomt bij de
privat sub CB1 is artikelnr weer leeg.

Als Artikelnr binnen ArtikelnrBepalen is gevuld dat geeft Artikelnr in de
aanroepende sub nog steeds de "oude" waarde weer. Kennelijk is er "iets"
aan de hand met de definitie of de plaats van Artikelnr.

Kortom naar ArtikelnrBepalen wordt de waarde goed doorgegeven, maar
terug naar de aanroepende privat sub CB1 bevat Artikelnr de oorspronkelijke
waarde waarmee ArtikelnrBepalen werd aangeroepen.

 

[Ginger]

Ik neem aan dat de aangeroepen routines 'functies' zijn? Anders zal je nooit iets terugkrijgen...

Groet, Leo

 

[Roncancio]

Ik zou de declaraties wel bij de codes zetten.
Voorbeeld:

Dim ARTIKELNR As Long

Sub Macro1()
ARTIKELNR = 5
Macro2
End Sub

Sub Macro2()
MsgBox ARTIKELNR
End Sub

Macro 1 wordt gestart en aan variabele ARTIKELNR wordt de waarde 5 gegeven.
Doordat ARTIKELNR buiten de Sub is gedeclareerd (1e regel), behoudt ARTIKELNR de waarde die volgens via Macro2 wordt getoond.

Met vriendelijke groet,


Roncancio

 

[Stone52]

de oplossing ?

gebruik call bij het aanroepen van de functie: het artikelnr
wordt dan wel teruggegeven.

Allen dank voor het meedenken.