TRANSPOSE and INDEX limit in Excel2007

[Alan Beban]

Could someone run the following code in Excel2007 with n=65535 and then
n=65537 and report the results?

Sub abtest1
Dim arr1(), arr2(), iVar, n
n = 65535
'n = 65537
ReDim arr1(1 To n, 1 To 1)
arr1(4, 1) = "ok"
On Error Resume Next
arr2 = Application.Transpose(arr1)
If Err <> 0 Then
MsgBox "Transpose doesn't work"
Err = 0
End If
iVar = Application.Index(arr1, 4, 1)
If Err <> 0 Then
MsgBox "Index doesn't work"
Err = 0
End If
Debug.Print arr2(4), iVar
End Sub

Thanks,
Alan Beban

 

[Jim Rech]

65535 - ok ok
65537 - transpose doesn't work index doesn't work

--
Jim
| Could someone run the following code in Excel2007 with n=65535 and then
| n=65537 and report the results?
|
| Sub abtest1
| Dim arr1(), arr2(), iVar, n
| n = 65535
| 'n = 65537
| ReDim arr1(1 To n, 1 To 1)
| arr1(4, 1) = "ok"
| On Error Resume Next
| arr2 = Application.Transpose(arr1)
| If Err <> 0 Then
| MsgBox "Transpose doesn't work"
| Err = 0
| End If
| iVar = Application.Index(arr1, 4, 1)
| If Err <> 0 Then
| MsgBox "Index doesn't work"
| Err = 0
| End If
| Debug.Print arr2(4), iVar
| End Sub
|
| Thanks,
| Alan Beban

 

[Alan Beban]

65535 - ok ok
65537 - transpose doesn't work index doesn't work

Thank you, Jim. That's interesting. In the excel.misc group, Roger
Govier replied
"Code runs and produces the debug result
ok ok"

I guess he didn't try it with n=65537.

Thanks again,
Alan Beban