Caster ein Array, eine Collection, eine Sammlung von Werten zu einer Collection

Collection = cCollection(value1 [,value2...[,value#]])

Download cast_ccollection.bas (V-1.0.1)

cast_ccollection.bas

Attribute VB_Name = "cast_cCollection"
'-------------------------------------------------------------------------------
'File         : cast_cCollection.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba
'Environment  : VBA 2010 +
'Version      : 1.0.1
'Name         : cCollection
'Author       : Stefan Erb (ERS)
'History      : 19.06.2014 - ERS - Creation
'               08.09.2014 - ERS - Umbennent auf cCollection
'-------------------------------------------------------------------------------
Option Explicit
 
'/**
' * Erstellt ein collection-Object mit Werten
' * @param  ParamArray
' * @return collection
' */
Public Function cCollection(ParamArray iItems() As Variant) As Collection
    Set cCollection = New Collection
    If UBound(iItems) = -1 Then Exit Function
 
    Dim idx As Integer: For idx = 0 To UBound(iItems)
        cCollection.add iItems(idx)
    Next idx
End Function