Moin,
aber das funktioniert doch so, wie du es beschreibst?!
Option Public
Option Declare
Sub Initialize
Dim r As Variant
Dim i As Integer
Dim j As Integer
r = Func_a
For i = 0 To Ubound(r)
For j = 0 To Ubound(r, i+1)
Print r(i, j)
Next
Next
End Sub
Function Func_a() As Variant
Redim v(1, 1)
v(0, 0) = "0/0"
v(0, 1) = "0/1"
v(1, 0) = "1/0"
v(1, 1) = "1/1"
Func_a = v
End Function
Beste Grüße
Gutierrez
Moin,
ich verstehe. Dann würde ich das alles in einem Objekt kapseln, wenn es so nicht funktioniert.
Option Public
Option Declare
Class SimpleClass
Public v As Variant
End Class
Sub Initialize
Dim r As SimpleClass
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim t As Variant
Set r = Func_a
For i = 0 To Ubound(r.v)
For j = 0 To Ubound(r.v, i+1)
If Isarray(r.v(i, j)) Then
t = r.v(i, j)
For k = 0 To Ubound(t)
Print t(k)
Next
Else
Print r.v(i, j)
End If
Next
Next
End Sub
Function Func_a() As SimpleClass
Dim cObj As New SimpleClass
Dim a As Variant
Redim a(3)
a(0) = "1"
a(1) = "11"
a(2) = "12"
a(3) = "13"
Redim cObj.v(1, 1)
cObj.v(0, 0) = "0/0"
cObj.v(0, 1) = a
cObj.v(1, 0) = "1/0"
cObj.v(1, 1) = a
Set Func_a = cObj
End Function
Beste Grüße,
Gutierrez