Anvende array i andre subs

Hvis du under declarations erklærer arrayet for Public, og definerer arrayet under éen sub, kan du anvende den i alle subs. Eks:
Public arrayet

Private Sub testarray1()
arrayet = Array("test", "hest", "fest")
Debug.Print arrayet(0)
End Sub

Private Sub testarray2()
Debug.Print arrayet(1)
End Sub

Private Sub testarray3()
Debug.Print arrayet(2)
End Sub

//sostack

Den kan jeg ikke følge...

Jeg opretter en Public Sub. Las os tage den konkrete:

Public Sub arrExc()
    Dim arrExc() As String
    Dim i As Integer
    For Each c In Range("exc")
        i = i + 1
        ReDim Preserve arrExc(i)
        arrExc(i) = c.Value
    Next
End Sub

I andre subs vil så gerne kunne anvende værdierne fra mit array-sub:

Sub test1()
    arrExc
    ActiveCell.Value = arrExc(8)
End Sub

Sub test2()
    arrExc
    ActiveCell.Value = arrExc(10)
End Sub

Skriv sådan her, så kan du !

Public arrExc() As String

Public Sub arrExc()
    Dim i As Integer
    For Each c In Range("exc")
        i = i + 1
        ReDim Preserve arrExc(i)
        arrExc(i) = c.Value
    Next
End Sub

Nej, det kan du ikke, sorry....
Tænker lige..

-> bak
Giver en compile error (ambiguous name detected arrExc)

Eller endnu bedre:

Sub complete()
  arrExc
  test1
  test2
End Sub

sub test()

hov... fik trykket udført lidt for tidligt ;-)

Jeg havde ikke lige set at du havde en sub og et array med samme navn

Public arrExcVal() As String

Public Sub arrExc()
    Dim i As Integer
    For Each c In Range("exc")
        i = i + 1
        ReDim Preserve arrExcVal(i)
        arrExcVal(i) = c.Value
    Next
End Sub

Sub test1()
    arrExc
    ActiveCell.Value = arrExcVal(8)
End Sub

Sub test2()
    arrExc
    ActiveCell.Value = arrExcVal(10)
End Sub

Sub complete()
  arrExc
  test1
  test2
End Sub

sub test1()
  ActiveCell.Value = arrExc(2)
End Sub

sub test1()
  ActiveCell.Value = arrExc(3)
End Sub

Dvs. uden at skulle refere til den i hvert eneste sub, men kun lade den køre en gang og derefter de andre bagefter i en samlet sub

-> bak:
det virker i begge tilfælde.

Så, sostack var inde på noget af det rigtige kan jeg se (jeg fangede den bare ikke).
Er I med på en deler (så skal bak lige give et svar).
Tak for hjælpen!
/Lars

fint, lad bare sostack få dem. hans svar er jo rigtigt...

ok, men så kan du måske svare på hvordan jeg kan trække værdien fra i i arrExc med også eller på anden måde trække antallet af værdier ud af mit array.

Jeg er ikke helt med "trække fra"
Antallet af værdier
hvis Option Base 0 (standard)
Antal = Ubound(arrExc) + 1

værdien fra i i arrExc = værdien i fra sub'en arrExc. Indrømmet, sætningen kan misforstås).

Men den var go' nok ;-) Jeg havde forsøgt mig med UBound() men jeg havde som dig sat den på arrExc - den skal vel sættes på arrExcVal... Det virker i hvert fald.