Bruge array i flere moduler

Alternativt kan koden, der genererer arrayet, ligge i en funktion, jeg kan kalde fra subs i andre moduler.

Public DinVariabel As Variant


sæt den øverst i et modul uden for alle subs

Og hvor anbringer jeg saa kodestumpen, der genererer arrayet - og som hvad? Public/Private Sub/Function?

det er ok i Workbook_Open i ThisWorkbook

Hm, det kan jeg ikke rigtig faa til at fungere. Jeg har gjort dette:

I Workbook_Open har jeg indsat min kode, som laver mit to-dimensionelle array. Arrayet bliver undervejs ReDim'et, men det gaar jeg ikke ud fra er et problem.

Jeg har sikret mig, at der rent faktisk genereres et array, ved at skrive arrayet ud i en celle direkte fra Workbook_Open.

I et kodemodul har jeg oeverst angivet Public aTest As Variant.

En en sub har jeg testet: sTest = aTest(1,1) & ";" & aTest(1,2)

Jeg faar en Type mismatch fejl (Run-time error '13')

Arrayet skal jeg i oevrigt ogsaa bruge i et kodemodul til en formular - skal jeg vaere opmaerksom paa noget i den forbindelse?

/Lars

Fandt selv loesningen:

Anbragte kodestumpen i en Public Function:

Public Function MakeMeAnArrayPlease()

  Dim MyPublicArray As Variant
  ... 'noget kode der regner paa, hvor stort mit array skal vaere
  ReDim MyPublicArray(iArraySize,2)
  ... 'arrayet MyPublicArray bliver lavet
  MakeMeAnArrayPlease = MyPublicArray

End Function

I modulerne kalder jeg saa:

Private Sub IWantToUseTheArray()
  Dim MyArray As Variant
  MyArray = MakeMeAnArrayPlease
  ... 'kode der bruger arrayet MyArray
End Sub