Array Als Rückgabewert aus Funktion

Hallo

Wie schaffe ich es das ich als Rückgabewert einer Funktion ein Array bekommen?

Code:

---

Dim Rueck(4) As Integer

Rueck = Vergleich(aus1 , Aus2 , Aus3 , Aus3)

function Vergelich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer)
Vergleich(1) = A1
Vergleich(2) = A2
Vergelich(3) = A3
Vergleich(4) = A4

end function

---

Dabei kommt der Fehler: Array expected[Rueck]

Hallo Lync,

du müsstest folgendes schreiben:

Code:

---

rueck(1) = Vergleich(aus1 , Aus2 , Aus3 , Aus4)

---

ich verstehe allerdings nicht, was du mit diesem Codeschnipsel bezwecken möchtest?!

Vielleicht könntest du ja mal den Sinn des Programms beschreiben oder das ganze Programm posten.

Gruß
Chris

Du erstellst ein Arry Rueck aber beschreibst eine ganz andere Variable :
Vergleich(4) = A4 -> Rueck(4) = A4

ahh ok danke

@Che
Natürlich passiert in der funktion etwas, hab das nur rausgelöscht weil es für mein problem unwichtig war.

Zitat:

---

Zitat von Lync

Function Vergleich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer)
Vergleich(1) = A1

---

Ein Index beim Rückgabewert geht sowieso nicht.
Auf diese Art kannst du kein Array zurückgeben. Du kannst aber das Array übergeben und dann direkt dort hineinschreiben:

Dummy = Vergleich(aus1 , Aus2 , Aus3 , Aus4 , Rueck(1))

Function Vergleich(byval A1 As Integer , A2 As Integer , A3 As Integer , A4 As Integer , Rueckgabe As Integer)
Rueckgabe(1) = A1
Rueckgabe(2) = A2
Rueckgabe(3) = A3
Rueckgabe(4) = A4
End Function