---

Liebes Forum,

ich übergebe an eine Function bzw. an ein Sub Daten und fülle im Sub/Function eine Matrix(n, m) mit Daten, die ich daraus ableite.
Diese Daten würde ich dann gerne wieder an das "Main"-Sub übergeben von dem aus das Sub/die Function aufgerufen wurde.

Bislang mach ich das über eine globale Matrix.
Geht das auch anders und wenn ja, wie?

Vielen Dank Euch

------------------
Grüße aus München
Christian

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

---

Wenn Du Parameter einer Sub/Function "byRef" deklarierst, dann werden diese auch zurückgegeben. Beispiel:

Code:

---

Private sub myMain
  Dim myVar as double
  myVar = 1.0
  Call mySub(myVar)
  Call MsgBox(myVar)    'hier sieht man, dass die Variable
                        '"myVar" von der Sub befüllt und an
                        'die aufrufende Instanz retourniert wurde
End Sub

Private Sub mySub(byref X as Double)
  X = 24.7
End Sub

---

------------------


www.cars4fun.at

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

---

Vielen Dank.
Hat mir sehr weitergeholfen.

------------------
Grüße aus München
Christian

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

---

Jetzt hab ich doch nochmal eine Frage.

Wenn ich ein Datenfeld übergeben möchte,
was ist dann an den folgenden Zeilen falsch?

Code:

---

Sub MyMain()
    Dim intI As Integer
    Dim Inf(0 To 7) As Variant
   
    Inf(0) = "Layername"
   
    Call MySub(Inf(0))

    'Ausgabe der zurückgegebenen Werte
    For intI = 0 To 7
        MsgBox "String: " & Inf(intI)
    Next intI

End Sub

Private Sub MySub(ParamArray X() As Variant)

    'x(0) = Layername (wird übergeben)
   
    'Definieren der Matrixwerte
    X(2) = "a"
    X(3) = "b"
    ...
    X(7) = "z"
   
End Sub

---

------------------
Grüße aus München
Christian

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

---

Wie Hollaus schon geschrieben hatte : ByRef

Code:

---

Sub MyMain()
    Dim intI As Integer
    Dim Inf(0 To 7) As Variant
 
    Inf(0) = "Layername"
 
    Call MySub(Inf) ' ganzes Feld übergeben

    'Ausgabe der zurückgegebenen Werte
    For intI = 0 To 7
        strT = strT & "String" & intI & " : " & Inf(intI) & vbCrLf
    Next intI
    MsgBox strT

End Sub

Private Sub MySub(ByRef X() As Variant)  ' <= Hier :  ByRef statt ParamArray

    'x(0) = Layername (wird übergeben)
 
    'Definieren der Matrixwerte
   
    X(1) = "1"
    X(2) = "a"
    X(3) = "b"
    X(4) = "c"
    X(5) = "d"
    X(6) = "e"
    X(7) = "z"
 
End Sub

---

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

---

Vielen Dank, KlaK, für die Antwort.
Mein Dank hat urlaubsbedingt etwas gedauert.

------------------
Grüße aus München
Christian

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