---

servus!

Mitlerweile habe ich mich immer weiter in die Programmierung eingearbeitet und auch meine Makros werden immer zuverlässiger und übersichtlicher.

Da ich gerne bei einem Makro mit einer unterfunkion arbeiten möchte, stehe ich derzeit vor einem Problem. Einfache Rückgabe werte wie 1 oder 2 sind klar und laufen. nun möchte ich aber gerne ein array zurückgeben, also z.b.

...
dir = ausrichtung xp, yp ,zp  'aufruf der unterfunction
...
end sub

privat function ausrichtung (x , y ,z)
dim xyz(2)
...'unterfunktion macht was
ausrichtung = xyz
end function

ist das möglich? oder kann ich nur EINEN Wert zurückgeben in der form:
ausrichtung = 1

mir würde es auch helfen wenn ich das array als string umgewandelt bekommen, wenn ich dann den string als rückgabewert nutzen kann. den string würde ich später dann wieder aufsplitten.

oder vll kann ich auch die variable "xyz" so definieren, das ich sei auch ausserhalb der unterfunktion verwenden kann?

danke im vorraus

grüsse matthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also zum einen gehts so wie Du es geschrieben hast(benutzt Du CATScript oder VBA?)

Ansonsten kannste auch ne globale Variable deklarieren. Also
Oberhalb vom Sub:

Dim xyz(2) as Integer

Sub CatMain()

...
End Sub

Dann kannste xyz in jeder Sub benutzen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das mit der globalen varaible funzt - da hätte ih auch selber drauf kommen ;-)

nur das andere nicht, aber das ist dann auch nicht so schlimm

danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Matthias,

meines Wissens nach kann man keine Arrays als Rückgabewert angeben.
Was du als Alternativ zu der globalen Variable machen kannst, gib der Funktion einen Parameter für den Rückagbewert mit.
z.B:
privat function ausrichtung (x, y, z, byref Erg())
dim xyz(2)
...'unterfunktion macht was
Erg = xyz
end function

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klar gehts:

Sub TestMyArrayFunction()

Dim Test
Test = IrgendeinArray

MsgBox IrgendeinArray(2)

End Sub

Function IrgendeinArray()
Dim Werte(3) As Integer

Werte(1) = 1
Werte(2) = 2
Werte(3) = 3

IrgendeinArray = Werte

End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP