kopieren array

[jvsoest]

Hallo,

Is het mogelijk om in VB(A) een gevulde array over te zetten naar een andere lege array. Beiden arrays zijn hetzelfde gedimensioneerd.

Ik denk dan aan array1() = array2()
Bedankt vast!

 

[Flormot]

probeer deze code eens

Dim array1()
Dim array2()
Dim teller As Integer

teller = UBound(array1) 'kijken hoeveel gegevens er in array1zitten

While teller > -1 'zolang er gegevens in array1 zitten
ReDim Preserve array2(teller) 'vergroot de dimensie van array2
array2(teller) = array1(teller) 'array2 vullen
teller = teller - 1 ' de teller met eentje verminderen
End While

Nu zitten alle gegevens van aray1 in array2

 

[jvsoest]

Hallo,

Bedankt voor je reactie. Die code wilde ik juist omzeilen.
Waarschijnlijk zit er niets anders op!!!