Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ByVal Option

Forumthread: ByVal Option

ByVal Option
26.07.2007 11:47:00
Leo
Hallo alle zusammen,
Gibt es eine Möglichkeit alle zu übergebenden Argumente in einer Funktion mit der Option ByVal zu versehen.
Ansonsten müsste ich ja folgendes eingeben:
Function Meine_Funktion (ByVal X1, ByVal X2, ByVal X3, ..... ByVal Xn as Double)
mfg
Leo Gresser

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ByVal Option
26.07.2007 12:58:40
Ramses
Hallo
Es hat ja eigentlich schon seinen Grund warum man das machen sollte, aber es geht schon.
Das ist natürlich abhängig davon, was du erreichen willst.
Option Explicit

Sub start_test()
Dim testArr() As Variant
testArr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox myFunction(testArr)
End Sub




Function myFunction(argArr() As Variant)
Dim i As Long
Dim tmp As Double
For i = 0 To UBound(argArr)
tmp = tmp + argArr(i)
Next i
my


Function = tmp
End Function



Gruss Rainer
Anzeige
AW: ByVal Option
26.07.2007 13:07:00
Herby
Hallo Leo,
ich hab mal nachgeblättert. Wenn du ein Argument als Wert übergeben möchtest, reicht es aus beim Aufruf der Funktion das Argument in Klammern zu setzen:
Beispiel:
Aufruf mit den Argumenten in Klammern:
Call Meine_Funktion ((X1),(X2), ..... )
und so sieht dann die Funktion aus:

Function Meine_Funktion (X1, X2,.........)
End Function


wobei standardmäßig die Übergabe der Argumente als Referenz erfolgen würde, wenn nicht die Klammern beim Aufruf wären.
viele Grüße
Herby

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige