AW: Rückgabewert einer Funktion
22.02.2008 18:37:00
Nepumuk
Hallo Alex,
benutz doch einfach eine ganz normale Sub. Die gibt dir alle übergebenen Wert zurück, so du sie nicht per Value übergeben hast. Kleines Beispiel:
Public Sub test5()
Dim a As Integer, b As Integer, c As Integer
Call test6(a, b, c)
MsgBox a
MsgBox b
MsgBox c
End Sub
Public Sub test6(ByRef x As Integer, ByRef y As Integer, ByVal z As Integer)
x = 1
y = 2
z = 3
End Sub
Die Variablen a und b werden per Referenz übergeben und nehmen den geänderten Wert aus der zweiten Routine mit. Die Variable c wird per Wert übergeben und behält darum ihren ursprünglichen Wert, obwohl der in der zweiten Routine geändert wurde. ByRef muss nicht speziell angegeben werden, das ist default.
Gruß
Nepumuk