Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to find the dimension of an array?
- Thread starter ramki431
- Start date
This is not pretty but it works:
Private Sub CheckArray()
Dim iX As Long
Dim iY As Long
iX = 0
iY = 1
Do While 1
On Error GoTo ErrTrap
iX = UBound(myArr, iY)
iY = iY + 1
Loop
Exit Sub
ErrTrap:
MsgBox "There is " & CStr(iY - 1) & " Dimensions"
End Sub
Hope this helps Anything is possible, the problem is I only have one lifetime.
![[cheers]](/data/assets/smilies/cheers.gif "[cheers] [cheers]")
Private Sub CheckArray()
Dim iX As Long
Dim iY As Long
iX = 0
iY = 1
Do While 1
On Error GoTo ErrTrap
iX = UBound(myArr, iY)
iY = iY + 1
Loop
Exit Sub
ErrTrap:
MsgBox "There is " & CStr(iY - 1) & " Dimensions"
End Sub
Hope this helps Anything is possible, the problem is I only have one lifetime.
- Status
