array buiten procedure

[Manuzzi]

In de volgende sub staat een array waarin waarden zijn toegewezen:

Sub mcrOpslaanAlsKopie(n)
'
Dim toa(1 To 4) As String
toa(1) = "Jan"
toa(2) = "Piet"
toa(3) = "Joris"
toa(4) = "Corneel"

strToakopiebestand = toa(n) & "Kopie.xlsm"
'
End Sub

Ik zou die waarden voor toa graag buiten deze sub bovenaan in de module of in de declaratiemodule willen toewijzen. Hoe moet ik dat doen?

 

[OctaFish]

Zoiets?

Dim toa(1 To 4) As Variant

Sub test1()
    toa(1) = "Jan"
    toa(2) = "Piet"
    toa(3) = "Joris"
    toa(4) = "Corneel"
End Sub

Sub test2()
    MsgBox toa(2)
End Sub

 

[Manuzzi]

Dank! Dat werkt.

 

[snb]

Of:

Public toa

sub M_snb()
  toa=split("Jan Piet Joris Corneel")
End sub

 

[Manuzzi]

Dank snb. Kortere notatie dus. Voor mij is de andere notatie handiger, maar dat doet aan de oplossing voor mijn vraag er niet toe.
Wat ik fout deed was dat ik het toewijzen van de waarden buiten een sub deed. En toen ik het binnen een sub probeerde had ik blijkbaar iets anders fout.
Groet.