Collection kopieren

Computer: Software & Programmierung Visual Basic
1

hallo, bin vba-anfänger und probiere mich an collections.

hier ein auszug aus meinem progi:

Dim col1(4) as collection

Dim col2 as New Collection

wie kann ich z. col2 in col1(3) kopieren ?

col2 ändert sich nach dem kopieren und wird in ein anderes feld von col1 kopiert

weiß jemand rat ?

2

hier ein auszug aus meinem progi:
Dim col1(4) as collection
Dim col2 as New Collection
wie kann ich z. col2 in col1(3) kopieren ?

Hallo Cadman,

vielleicht so:

Option Explicit

Sub test()
Dim col1(4) As New Collection, col2 As New Collection
'
' dein Code
'
Call Kopiere(col2, col1(3))
'
' dein Code
'
End Sub

Sub Kopiere(ByRef ColQ As Collection, ByRef ColZ As Collection)
Dim C As Long
For C = 1 To ColZ.Count
 ColZ.Remove 1
Next C
For C = 1 To ColQ.Count
 ColZ.Add ColQ(C)
Next C
End Sub

Gruß
Reinhard