Ik moet een multidimensional array verlengen zonder dat er gegevens verloren gaan maar hoe doe je dat?
met deze code:
dan krijg ik "Het subscript valt buiten het bereik" als error terug
met deze code:
code:
1
2
3
4
5
6
7
8
9
| Dim testarry() ReDim testarry(1, 2) testarry(0, 0) = "test1" testarry(0, 1) = "test2" testarry(1, 0) = "test1" testarry(1, 1) = "test2" ReDim Preserve testarry(UBound(testarry) + 1, 1) testarry(2, 0) = "test3" testarry(2, 1) = "test3" |
dan krijg ik "Het subscript valt buiten het bereik" als error terug