'Daten aus zwei Arrays in einem dritten Array zusammenfügt?
Public Function Connect(Feld1() As String, Feld2() As String) As String()
    Dim Erg() As String
    Dim Index As Integer, Index1 As Integer
 
    ReDim Erg(UBound(Feld1()) + UBound(Feld2()))
    For Index = 0 To UBound(Feld1()) - 1
        Erg(Index1) = Feld1(Index)
        Index1 = Index1 + 1
    Next Index
    For Index = 0 To UBound(Feld2()) - 1
        Erg(Index1) = Feld2(Index)
        Index1 = Index1 + 1
    Next Index
    Connect = Erg
End Function
 
'- Daten aus einem Listfeld in ein Array anfügt?
Public Sub AddList(Feld1() As String, Liste As ListBox)
    Dim Index As Integer, Index1 As Integer, ListIndex As Integer
 
    Index1 = UBound(Feld1())
    ReDim Preserve Feld1(Index1 + Liste.ListCount)
    For Index = Index1 To UBound(Feld1()) - 1
        Feld1(Index) = Liste.ItemData(ListIndex)
        ListIndex = ListIndex + 1
    Next Index
End Sub
 
'- Einen bestimmten Datensatz aus einem Array in ein zweites Array schribt?
'müßtest Du jetzt selber schaffen ::):
 
Public Sub Main()
    Dim Feld1() As String, Feld2() As String, Feld3() As String
    Dim Index As Integer
 
    ReDim Feld1(3): ReDim Feld2(2)
 
    For Index = 0 To UBound(Feld1) - 1
        Feld1(Index) = "Feld1 (" + CStr(Index) + ") = " + CStr(Index)
    Next Index
    For Index = 0 To UBound(Feld2) - 1
        Feld2(Index) = "Feld2 (" + CStr(Index) + ") = " + CStr(Index)
    Next Index
    Feld3 = Connect(Feld1, Feld2)
    For Index = 0 To UBound(Feld3()) - 1
        Debug.Print Feld3(Index)
    Next Index
 
End Sub

NS