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 ?
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