Matrix Worksheet Function MInverse in VBA with Array

[trough]

I have a VBA script error out with "Type mismatch" on the Application.WorksheetFunction MInverse line. How else am I suppose to calculate a matrix inverse? What is the type mismatch? Both arrays are the same size and the matrix defined is invertible.

Option Explicit
Option Base 1

Function CalcB()

Dim A() As Double
Dim B() As Double
ReDim A(1 To 2, 1 To 2)
ReDim B(1 To 2, 1 To 2)

A = CalcA()

B = Application.WorksheetFunction.MInverse(A)

Range("A1:B2") = B

End Function


Private Function CalcA()

Dim aAr() As Double

ReDim aAr(1 To 2, 1 To 2)

aAr(1, 1) = 2.8
aAr(2, 2) = 7.3
aAr(1, 2) = 5.7
aAr(2, 1) = 1.7

CalcA = aAr

End Function

 

[DanteAmor]

Declare A and B as varitant

Try this:

Option Explicit

Option Base 1

Function CalcB()
  Dim A As Variant
  Dim B As Variant
  ReDim A(1 To 2, 1 To 2)
  ReDim B(1 To 2, 1 To 2)
  A = CalcA()
  B = Application.WorksheetFunction.MInverse(A)
  Range("A1:B2") = B
End Function

Private Function CalcA()
  Dim aAr() As Double
  ReDim aAr(1 To 2, 1 To 2)
  aAr(1, 1) = 2.8   'row, column
  aAr(1, 2) = 5.7   'row, column
  aAr(2, 1) = 1.7   'row, column
  aAr(2, 2) = 7.3   'row, column
  CalcA = aAr
End Function

 

[trough]

Had to declare aAr in CalcA as Variant as well and then it worked. I'm not very versed on the Variant data type but I think I need to get that way now. Thanks.

 

[DanteAmor]

Had to declare aAr in CalcA as Variant as well and then it worked.

It worked for me, but very well it already works for you too.