Feldwerte global vereinbaren

[Diamant]

Hallo,

kann man ein Feld  ar = Array( 1,2,3,... ) global vereinbaren, so dass  einem die einzelnen Feldwerte überall zur Verfügung stehen?
Wenn ja, wie?

[Steffl]

Hallo,

Code:

'in einem allgemeinen Modul!

Public arrFeld As Variant



Sub Test()

  MsgBox arrFeld(1)

End Sub

und das Befüllen

Code:

'steht in dem Klassenmodul DieseArbeitsmappe

Private Sub Workbook_Open()

  'Wertzuweisung
  arrFeld = Array(1, 11, 21, 31)

End Sub