dif Ubound for member array when debugging

[Eric]

I have a dynamic array designed to hold a user defined type, both of which
are declared as follows:
Private m_filterRestore() As udt_filterRestoreData
Private Type udt_filterRestoreData
m_wksName As String
m_colName As String
m_index As Integer
m_filter As Filter
End Type

When I run a test in the debugger, stepping through it, the array is
correctly dimensioned (for this test) with elements 0 through 4. When I let
it run without stepping through it, however, it is dimensioned with elements
0 through 10, with elements 5 through 10 holding empty udts. The code is
below, and I sure don't get it.

This is a long one, so I really do appreciate the time.

Thanks, Eric
--------------------------------------------------------------------------------------------
' get filter settings for all worksheets in the workbook
Public Function SaveFilterSettingsForWorkbook(aWkbk As Workbook) As Integer

Dim iResult As Integer
Dim wkbkArray As Variant

If WorkbookWorksheetsToArray(aWkbk, wkbkArray, True) > 0 Then
Dim i As Integer
For i = LBound(wkbkArray) To UBound(wkbkArray)
iResult = iResult +
SaveFilterSettingsForWorksheet(aWkbk.Worksheets(wkbkArray(i)))
Next i
End If

SaveFilterSettingsForWorkbook = iResult

'test
For i = 0 To UBound(m_filterRestore)
Dim s As String
s = m_filterRestore(i).m_wksName & DELIM &
m_filterRestore(i).m_index & DELIM & _
m_filterRestore(i).m_filter.Criteria1 & DELIM
If m_filterRestore(i).m_filter.Operator Then
s = s & m_filterRestore(i).m_filter.Operator & DELIM &
m_filterRestore(i).m_filter.Criteria2
Else
s = s & "no criteria2"
End If
Debug.Print s
Next i

End Function

----------------------------------------------------------------------------------
'get filter settings for a worksheet
Public Function SaveFilterSettingsForWorksheet(aWks As Worksheet) As Integer

Dim fltrs As Filters
Set fltrs = aWks.AutoFilter.Filters
If Not IsNothing(fltrs) Then
Dim wksName As String
wksName = aWks.Name

Dim restoreIndex As Integer
On Error Resume Next ' in case the array is empty
Dim bFirstAdd As Boolean
bFirstAdd = IsNothing(m_filterRestore(0).m_wksName)
If Err.Number = 9 Then
ReDim m_filterRestore(0)
bFirstAdd = True
End If
restoreIndex = IIf(bFirstAdd, UBound(m_filterRestore),
UBound(m_filterRestore) + 1)
ReDim Preserve m_filterRestore(restoreIndex + (fltrs.Count))

Dim f As Filter, i As Integer, nbrAdded As Integer
For Each f In fltrs
If f.On Then
Dim restoreData As udt_filterRestoreData
restoreData.m_wksName = wksName
restoreData.m_index = i + 1 ' our restoreArray is 0 based
but the fltr collection is not
Set restoreData.m_filter = f

nbrAdded = nbrAdded + 1
m_filterRestore(restoreIndex + (nbrAdded - 1)) = restoreData
End If
i = i + 1
Next f

If nbrAdded > 0 Then
ReDim Preserve m_filterRestore(restoreIndex + (nbrAdded - 1))
Else
ReDim Preserve m_filterRestore(restoreIndex)
End If

SaveFilterSettingsForWorksheet = nbrAdded
End If

'test
' Dim bNothingNew As Boolean
' bNothingNew = IsNothing(m_filterRestore(restoreIndex).m_wksName)
' If bNothingNew Then Exit Function
' For i = restoreIndex To UBound(m_filterRestore)
' Dim s As String
' ' if the array is empty let's split
' ' it's not empty
' s = m_filterRestore(i).m_wksName & DELIM &
m_filterRestore(i).m_index & DELIM & _
' m_filterRestore(i).m_filter.Criteria1 & DELIM
' If m_filterRestore(i).m_filter.Operator Then
' s = s & m_filterRestore(i).m_filter.Operator & DELIM &
m_filterRestore(i).m_filter.Criteria2
' Else
' s = s & "no criteria2"
' End If
' Debug.Print s
' Next i

End Function

 

[Nick Hebb]

Pepper your code with Debug.Print UBound(m_FilterRestore) before and
after each ReDim Preserve. also Debug.Print the array size variables
and a descriptive label telling which line the Redim occurred.

Run in once in the debugger and again without the debugger. Check the
differences in the output to find out where the problem lies.