Sorry, ich dürfte da falsch gelegen sein. Anscheinend gibts ein Limit.
Dim sourceArray1(1 To 12) As Integer
Dim sourceArray2(1 To 12) As Integer
Dim arr3
sourceArray1(1) = 1
sourceArray1(2) = 2
sourceArray1(3) = 3
sourceArray1(4) = 4
sourceArray1(5) = 5
sourceArray1(6) = 6
sourceArray1(7) = 7
sourceArray1(8) = 8
sourceArray1(9) = 9
sourceArray1(10) = 10
sourceArray1(11) = 11
sourceArray1(12) = 12
sourceArray2(1) = 1
sourceArray2(2) = 2
sourceArray2(3) = 3
sourceArray2(4) = 4
sourceArray2(5) = 5
sourceArray2(6) = 6
sourceArray2(7) = 7
sourceArray2(8) = 8
sourceArray2(9) = 9
sourceArray2(10) = 10
sourceArray2(11) = 11
sourceArray2(12) = 12
sourceArray2(13) = 13
sourceArray2(14) = 14
arr3 = Arrayappend (sourceArray1, sourceArray2)
Msgbox "UBound neues Array: " & Cstr(Ubound(arr3))
Selber Fehler wie bei Dir. :(
Danke.
/me holt sich noch einen Kaffee, damit er mal was sieht und grad Denken kann.
Mit korrektem Dim klappt es natürlich:
Dim sourceArray1(1 To 12) As Integer
Dim sourceArray2(1 To 15) As Integer
Dim arr3
sourceArray1(1) = 1
sourceArray1(2) = 2
sourceArray1(3) = 3
sourceArray1(4) = 4
sourceArray1(5) = 5
sourceArray1(6) = 6
sourceArray1(7) = 7
sourceArray1(8) = 8
sourceArray1(9) = 9
sourceArray1(10) = 10
sourceArray1(11) = 11
sourceArray1(12) = 12
sourceArray2(1) = 1
sourceArray2(2) = 2
sourceArray2(3) = 3
sourceArray2(4) = 4
sourceArray2(5) = 5
sourceArray2(6) = 6
sourceArray2(7) = 7
sourceArray2(8) = 8
sourceArray2(9) = 9
sourceArray2(10) = 10
sourceArray2(11) = 11
sourceArray2(12) = 12
sourceArray2(13) = 13
sourceArray2(14) = 14
arr3 = Arrayappend (sourceArray1, sourceArray2)
Msgbox "UBound neues Array: " & Cstr(Ubound(arr3))
Und das, nachdem ich Bill Buchans "Best Practices (http://www.google.com/url?sa=t&ct=res&cd=1&url=http%3A%2F%2Fwww.hadsl.com%2Fhadsl.nsf%2FVienna_Buchan_Lotusscript%2520Coding%2520Best%2520Practices.pdf&ei=cHxmRsnuLYKAnQPj8_z4Dw&usg=AFQjCNHR8XHDgxm7FA5FDRT-k7L6dfhx1g&sig2=Y1WmOuWG90GfU5ehWrEi2A)" bereits mehrmals gehört habe:
By default, they count from zero
Don't change this by using “option base”
You can guarantee that someone will either:
+) Cut'n'paste this code somewhere else
+) Remove your “option base” directive!