Array Als Rückgabewert aus Funktion

[Lync]

Hallo

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

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]

[Che Guevara]

Hallo Lync,

du müsstest folgendes schreiben:

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

[Rofo88]

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

[Lync]

ahh ok danke

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

[for_ro]

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