How to return the number of dimensions of a (Variant) variable passed to it in VBA [duplicate]

by 
Function getDimension(var As Variant) As Long
    On Error GoTo Err
    Dim i As Long
    Dim tmp As Long
    i = 0
    Do While True
        i = i + 1
        tmp = UBound(var, i)
    Loop
Err:
    getDimension = i - 1
End Function

That’s the only way I could come up with. Not pretty….

Looking at MSDN, they basically did the same.

More Related Contents:

  1. Sequence of numbers based on start and end value of 2 cells [closed]
  2. Function to convert column number to letter?
  3. Read/Parse text file line by line in VBA
  4. Better way to find last used row
  5. 2 Dimensional array from range [closed]
  6. filter out multiple criteria using excel vba
  7. Excel VBA autofilter all but three
  8. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  9. Using Google Chrome in Selenium VBA (Installation Steps)
  10. Dir() function not working in Mac Excel 2011 VBA
  11. Excel VBA code to copy a specific string to clipboard
  12. Delete a row in Excel VBA
  13. VBA: Convert Text to Number
  14. Iterating through populated rows
  15. How can I run VBA code each time a cell gets its value changed by a formula?
  16. Using VBA to detect which decimal sign the computer is using
  17. Referencing Excel Userform Control Name Value From String (VBA)
  18. Fill formula down till last row in column
  19. If string contains word from list, return value adjacent to list value
  20. Refreshing all the pivot tables in my excel workbook with a macro
  21. Countif With Multiple OR Criteria
  22. Vlookup to copy color of a cell
  23. excel vba freeze pane without select
  24. How to delete rows in Excel based on criteria using VBA?
  25. Converting a string representation of a constant into a constant?
  26. Macro to export MS Word tables to Excel sheets
  27. VBA WinHTTP to download file from password proteced https website
  28. Create folder path if does not exist (saving from VBA)
  29. Access files with long paths (over 260)
  30. Concatenate multiple ranges using vba

Leave a Comment