test if array is empty vba code example

Example: excel vba check for uninitialized or empty array

'In VBA an un-itialized dynamic array will raise a run-time error if
'code attempts to read from... or write to it.

'VBA function to test if an array is ready for access:

Function ArrayReady(a) As Boolean
    On Error Resume Next
    ArrayReady = Not LBound(a) > UBound(a)
End Function


'Another way is to use Not Not:

Function ArrayReady(a) As Boolean
    ArrayReady = Not Not a
End Function


'--------------------------------------------------------------------

'Dynamic arrays can be created in many ways. More ways than this:
'Dim v: v = Array()
'Dim v: v = [A1:B10]
'Dim v: ReDim v(0 to 9)
'Dim v()
'ReDim v(1 To 5, 1 TO 2)


'Note that static arrays, as opposed to dynamic arrats, are always 
'initialized.