Versuche in UDF-MatrixFormelFktionalität

Option Explicit
Public Enum cxTriState: cxAsUsed = -2: cxRTrue: cxFalse: cxPTrue: End Enum
Rem Alle UDFs benötigen Enum cxTriState;
'   Argumente Vektor (Spalte/Zeile) oder Einzelwert
Function AddIt(x, y)
Dim isArr As cxTriState, i As Long, n As Long, s As Long, z As Long, erg, _
ac As Range
isArr = Abs(IsArray(x)) + 2 * CInt(IsArray(y))
If CBool(isArr) Then
Set ac = Application.Caller: s = ac.Columns.Count: z = ac.Rows.Count
Set ac = Nothing: n = WorksheetFunction.Max(s, z): ReDim erg(n)
For i = 0 To n - 1
Select Case isArr
Case cxAsUsed: erg(i) = x + y(i + 1)
Case cxRTrue:  erg(i) = x(i + 1) + y(i + 1)
Case cxPTrue:  erg(i) = x(i + 1) + y
End Select
Next i
If z > s Then
AddIt = WorksheetFunction.Transpose(erg)
Else: AddIt = erg
End If
Else: AddIt = x + y
End If
End Function
Function AddThis(x, y)
Dim isArr As cxTriState, i As Long, s As Long, z As Long, adRelBer$, erg(), _
xz As Range, ac As Range
isArr = Abs(IsArray(x)) + 2 * CInt(IsArray(y))
If CBool(isArr) Then
Set ac = Application.Caller: s = ac.Columns.Count: z = ac.Rows.Count
adRelBer = ac.Address: Set ac = Nothing
For Each xz In Range(adRelBer)
i = i + 1: ReDim Preserve erg(1 To i)
Select Case isArr
Case cxAsUsed: erg(i) = x + y(i)
Case cxRTrue:  erg(i) = x(i) + y(i)
Case cxPTrue:  erg(i) = x(i) + y
End Select
Next xz
If z > s Then
AddThis = WorksheetFunction.Transpose(erg)
Else: AddThis = erg
End If
Else: AddThis = x + y
End If
End Function
Function AddRec(x, y)
Dim isArr As cxTriState, i As Long, s As Long, z As Long, adRelBer$, erg(), _
xz As Range, ac As Range
isArr = Abs(IsArray(x)) + 2 * CInt(IsArray(y))
If CBool(isArr) Then
Set ac = Application.Caller: s = ac.Columns.Count: z = ac.Rows.Count
adRelBer = ac.Address: Set ac = Nothing
For Each xz In Range(adRelBer)
i = i + 1: ReDim Preserve erg(1 To i)
Select Case isArr
Case cxAsUsed: erg(i) = AddRec(x, y(i))
Case cxRTrue:  erg(i) = AddRec(x(i), y(i))
Case cxPTrue:  erg(i) = AddRec(x(i), y)
End Select
Next xz
If z > s Then
AddRec = WorksheetFunction.Transpose(erg)
Else: AddRec = erg
End If
Else: AddRec = x + y
End If
End Function
Rem Benötigt außerdem UDF Vary
Function AddVar(x, y)
Dim isArr As cxTriState, i As Long, erg(), s(1)
isArr = Abs(IsArray(x)) + 2 * CInt(IsArray(y))
Do: i = i + 1
Select Case isArr
Case cxAsUsed: s(0) = x: s(1) = Vary(y, i)
Case cxRTrue:  s(0) = Vary(x, i): s(1) = Vary(y, i)
Case cxFalse:  s(0) = Array(Empty, x)(1 \ i): s(1) = Array(Empty, y)(1 \ i)
Case cxPTrue:  s(0) = Vary(x, i): s(1) = y
End Select
If IsEmpty(s(0)) Or IsEmpty(s(1)) Then Exit Do
ReDim Preserve erg(1 To i): erg(i) = s(0) + s(1)
Loop
AddVar = erg
End Function
Rem Unterstützt hier UDF AddVar
Function Vary(x, i As Long)
On Error Resume Next
If TypeName(x) = "Range" Then
If i > x.Cells.Count Then Else Vary = x.Cells(i)
Else: If IsError(LBound(x, 2)) Then Else x = WorksheetFunction.Transpose(x)
If i > UBound(x) Then Else Vary = x(i)
End If
End Function