Gezackte Arrays als Parameter für VBA Sub

Question

Ich möchte ein Sub in VBA erstellen, die ein Array als Parameter hat. Der folgende Code funktioniert:

Sub phase1State(ByRef arr() As String) 

Nun, ich möchte, dass der Parameter ein Array von Arrays oder gezackten Array sein, wie kann ich das tun?

Danke!

Answer 1

Sub test() 
    Dim jagged As Variant 
    ReDim jagged(1 To 3) 
    jagged(1) = Array(1, 2, 3) 
    jagged(2) = Array(4, 5, 6) 
    jagged(3) = Array(7, 8, 9) 
    phase1State jagged 
End Sub 

Sub phase1State(ByRef arrJagged As Variant) 
    Debug.Print arrJagged(2)(2) ' 6 
End Sub 

Answer 2

Sub Arraycheck() 
    ReDim Arr(3) As String 
    Arr(1) = "1" 
    Arr(2) = "2" 
    Arr(3) = "3" 
    Call parameter(Arr()) 
End Sub 
Sub parameter(getarr() As String) 
    Debug.Print getarr(2) 
End Sub