Unable to get the MINVERSE of Worksheet Function Class ?
 

Can someone tell why this routine does not work for an array larger than 50?
thanks

Sub inve()
Dim Arr1(1 To 255, 1 To 255) As Double
Dim Arr2 As Variant
Dim R As Long
Dim C As Long
'values
For i = 1 To 250
For j = 1 To 250
Arr1(i, j) = Sheets("abc").Cells(i, j)
Next j
Next i
Arr2 = Application.WorksheetFunction.MInverse(Arr1)
'End Sub

Unable to get the MINVERSE of Worksheet Function Class ?
 

Daniel -

Browse to www.microsoft.com, click Support, and search for "excel minverse,"
and you'll see
http://office.microsoft.com/en-us/ex...091791033.aspx
where it says, among other things, "The size of the array must not exceed 52
columns by 52 rows. If it does, the function returns a #VALUE! error."

- Mike Middleton
http://www.DecisionToolworks.com
Decision Analysis Add-ins for Excel


"Daniel" wrote in message
...

Can someone tell why this routine does not work for an array larger than
50?
thanks

Sub inve()
Dim Arr1(1 To 255, 1 To 255) As Double
Dim Arr2 As Variant
Dim R As Long
Dim C As Long
'values
For i = 1 To 250
For j = 1 To 250
Arr1(i, j) = Sheets("abc").Cells(i, j)
Next j
Next i
Arr2 = Application.WorksheetFunction.MInverse(Arr1)
'End Sub

Unable to get the MINVERSE of Worksheet Function Class ?
 

Mike,
It was good to be true... I guess the same with MMULT
why MS does it that way, is there a hard limitation?
we are not talking about memory here
thanks anyway
Dan




"Mike Middleton" wrote:

Daniel -

Browse to www.microsoft.com, click Support, and search for "excel minverse,"
and you'll see
http://office.microsoft.com/en-us/ex...091791033.aspx
where it says, among other things, "The size of the array must not exceed 52
columns by 52 rows. If it does, the function returns a #VALUE! error."

- Mike Middleton
http://www.DecisionToolworks.com
Decision Analysis Add-ins for Excel


"Daniel" wrote in message
...

Can someone tell why this routine does not work for an array larger than
50?
thanks

Sub inve()
Dim Arr1(1 To 255, 1 To 255) As Double
Dim Arr2 As Variant
Dim R As Long
Dim C As Long
'values
For i = 1 To 250
For j = 1 To 250
Arr1(i, j) = Sheets("abc").Cells(i, j)
Next j
Next i
Arr2 = Application.WorksheetFunction.MInverse(Arr1)
'End Sub