ich möchte gerne ein mehrdimensionales Array entsprechend des Beispiel Codes mit Redim Preserve ändern, bekomme aber immer die Fehlermeldung, dass das Datenfeld bereits dimensioniert wäre. Kann mir jemand bitte helfen und findet wo mein Fehler liegt?
Sub test()
Dim redimArr(1, 1000) as Variant
arr1 = Array(101, 102, 103, 104, 105, 106, 107, 108, 109, 110)
arr2 = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
i = 0
Do While arr2(i) ""
On Error Resume Next
redimArr(0, i) = arr1(i)
redimArr(1, i) = arr2(i)
i = i + 1
Loop
ReDim Preserve redimArr(1, i)
End Sub