ich möchte eine Funktion schreiben, die zwei Array miteinander verbindet. Leider läuft sie noch nicht so, wie ich das will.
Bspw. kommt in der Zeile "Debug.Print UBound(Arr3)" immer die Meldung "Typen unverträglich".
Sieht jemand vielleicht einen offensichtlichen Fehler?
Vielen Dank schonmal,
imtis
-----------------------------------------------------------------------------
Function ArraysVerbinden(Array1() As Integer, Array2() As Integer)
Dim ArrayNeu() As Integer
Dim cnt As Integer
cnt = 0
For i = 0 To UBound(Array1)
ReDim Preserve ArrayNeu(cnt)
ArrayNeu(cnt) = Array1(i)
cnt = cnt + 1
Next i
For i = 0 To UBound(Array2)
ReDim Preserve ArrayNeu(cnt)
ArrayNeu(cnt) = Array2(i)
cnt = cnt + 1
Next i
ArrraysVerbinden = ArrayNeu
End Function
-----------------------------------------------------------------------------
Sub test()
Dim Arr1(1) As Integer
Dim Arr2(1) As Integer
Dim Arr3(3) As Integer
Arr3 = ArraysVerbinden(Arr1, Arr2)
Debug.Print UBound(Arr3)
End Sub
-----------------------------------------------------------------------------