Code: Selecteer alles
dim maintYear() as Integer
...
...Redim Preserve maintyear(int)...
...
If intNumber > UBound(maintYear) Or intNumber < LBound(maintYear) then Exit Sub
Code: Selecteer alles
dim maintYear() as Integer
...
...Redim Preserve maintyear(int)...
...
If intNumber > UBound(maintYear) Or intNumber < LBound(maintYear) then Exit Sub