Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige