Wert-Übergabe und Aufruf von "Function"

Sub Auruf() Dim Var1 , Var2 , Var3 , Var4 , Var5 As Variant Var1=1 Var2=20 Var3=300 Var4=4000 Var5=50000 Call Function Rechnen(Var1;Var2;Var3;Var4;Var5) End Sub Function Rechnen(R1,R2,R3,R4,R5 As Variant) 'hier die Rechen-Operation mit Wert-Ausgabe in eine MSG-Box 'in diesem Fall soll kein Wert an Sub Aufruf() zurück gegeben werden End Function '-------------------------------------------------------------- Bitte ein weiteres Beispiel mit einer Wert-Rückgabe darstellen. Vielen Dank im Voraus. Mit freundlichen Grüssen Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auruf1() Dim Var1 As Long, Var2 As Long, Var3 As Long, Var4 As Long, Var5 As Long Dim Summe As Long Var1 = 1 Var2 = 20 Var3 = 300 Var4 = 4000 Var5 = 50000 Summe = Rechnen1(Var1, Var2, Var3, Var4, Var5) End Sub Function Rechnen1(ByVal R1 As Long, ByVal R2 As Long, ByVal R3 As Long, ByVal R4 As Long, ByVal R5 As Long) As Long 'hier die Rechen-Operation mit Wert-Ausgabe in eine MSG-Box 'in diesem Fall soll kein Wert an MsgBox R1 + R2 + R3 + R4 + R5 End Function Sub Auruf2() Dim Var1 As Long, Var2 As Long, Var3 As Long, Var4 As Long, Var5 As Long Dim Summe As Long Var1 = 1 Var2 = 20 Var3 = 300 Var4 = 4000 Var5 = 50000 MsgBox Rechnen2(Var1, Var2, Var3, Var4, Var5) End Sub Function Rechnen2(ByVal R1 As Long, ByVal R2 As Long, ByVal R3 As Long, ByVal R4 As Long, ByVal R5 As Long) As Long Rechnen2 = R1 + R2 + R3 + R4 + R5 End Function

.
Servus Reinhard,
vielen Dank für Deine beiden Beispiele.
Ich habe da noch etwas geänder, um den Unterschied
besser zu verstehen.
Bitte prüfe mal, ob das so funktioniert.
Kann man auch die Funktion "CALL" zum Aufrufen
der "Function" -Unter-Routine verwenden ?
Wie sieht ein Beispiel mit "CALL" aus ?
Vielen Dank, Michael
'Aufruf der Funktion Rechnen1 ohne Wert-Rückmeldung
'--------------------------------------------------------------------


Sub Aufruf1()
Dim Var1 As Long, Var2 As Long, Var3 As Long, Var4 As Long, Var5 As Long
Var1 = 1
Var2 = 20
Var3 = 300
Var4 = 4000
Var5 = 50000
Rechnen1(Var1, Var2, Var3, Var4, Var5)
End Sub


Function Rechnen1(ByVal R1 As Long, ByVal R2 As Long, ByVal R3 As Long, ByVal R4 As Long, ByVal R5 As Long) As Long
Dim Summe As Long
Summe = R1 + R2 + R3 + R4 + R5
MsgBox Summe
End Function

'--------------------------------------------------------------------
'Aufruf der Funktion Rechnen2 mit Wert-Rückmeldung in der Variablen Rechnen2
'--------------------------------------------------------------------


Sub Aufruf2()
Dim Var1 As Long, Var2 As Long, Var3 As Long, Var4 As Long, Var5 As Long
Dim Rechnen2 As Long
Dim Summe As Long
Var1 = 1
Var2 = 20
Var3 = 300
Var4 = 4000
Var5 = 50000
Summe=Rechnen2(Var1, Var2, Var3, Var4, Var5)
MsgBox Summe
End Sub


Function Rechnen2(ByVal R1 As Long, ByVal R2 As Long, ByVal R3 As Long, ByVal R4 As Long, ByVal R5 As Long) As Long
Dim Rechnen2 As Long
Rechnen2 = R1 + R2 + R3 + R4 + R5
End Function

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

Beliebteste Forumthreads (12 Monate)

Wert-Übergabe und Aufruf von "Function"

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert-Übergabe und Aufruf von "Function"

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread