Function durch Übergabeparameter aufrufen

Sub Beispiel(Variante As Integer) dim test1 as integer, Wert as integer If Variante = 0 Then test1 = Funktion_A(Wert) ElseIf Variante = 1 Then test1 = Funktion_B(Wert) End If If Variante = 0 Then Cells(16, 10) = test1 Cells(16, 12) = Wert ElseIf Variante = 1 Then Cells(16, 15) = test1 Cells(16, 17) = Wert End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub machmal() Dim v As Variant v = Application.Run("Func_A", 1) MsgBox v v = Application.Run("Func_B", 2) MsgBox v End Sub Function Func_A(i As Integer) Func_A = 10 * i End Function Function Func_B(i As Integer) Func_B = 12 * i End Function

Option Explicit Function TNum1(Bezug) TNum1 = IsNumeric(Bezug) End Function Sub Test1() Const fn$ = "tnum1" MsgBox Run(fn, Cells(1)) End Sub Sub Test2() Const fn$ = "tnum2" MsgBox CallByName(DieseArbeitsmappe, fn, VbMethod, Cells(1)) End Sub

Hallo Luc,
bisher habe ich diese Möglichkeit eigentlich nur selten benutzt. Selbst die neuesten deutschsprachigen Excel 2013-Vba-Bücher machen einen großen Bogen darum. Im M$-Press-Verlag erschnienenen Buch von Mourad Louha/Monika Weber gibt es die Funktion CallByName() überhaupt nicht und im Buch vom Hanser-Verlag von Michael Kofler/Ralf Nebelo nur ein paar Zeilen, ohne daß man erahnen könnte, hier eine 'wichtige' Funktionionalität zu verpassen.
Die Online Hilfe zu dieser Funktion:
http://msdn.microsoft.com/de-de/library/office/gg278760%28v=office.15%29.aspx
gibt wenig her, denn nicht mal die vbCallType-Konstanten sind aufgeführt und muß man sich wie so oft erst ergOOgeln. Die Beispiele, die ich im I-Net gefunden habe sind auch nicht berauschend und für mein Beispiel muß ich extra ein Klassenmodul erstellen, darin die Funktionen hinterlegen, dann ein Objekt der Klasse erzeugen und so aufrufen:
Dim myClass As New myClass
v = CallByName(myClass, "Func_A", vbMethod, 1)
Selbst der von Hajo in Beispielen gern benutzte Aufruf:


If CallByName(Target, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then

braucht man nicht, da Target.Count ausreicht, ob mehr als eine Zelle im Spiel ist - aber schön gewaltig sieht der Aufruf ja aus.
Geschwindigkeitsmäßig liegen aber 'Application.Run' & 'CallByName' gleichauf, obwohl der Overhead bei letzterer Funktion größer ist.
Gruß von Luschi
aus klein-Paris

Sub machmal2() Dim v As Variant Dim x As String Dim y As Double Dim Wert As Integer y = 2 Wert = 6 If y = 1 Then x = "Func_A" If y = 2 Then x = "Func_B" v = Application.Run(x, Wert) MsgBox v If y = 1 Then v = Func_A(Wert) If y = 2 Then v = Func_B(Wert) MsgBox v End Sub

Hallo,
ich kann deiner Darstellung nicht so richtig folgen.
Ich rufe ja aus einer Sub, je nachdem was ich berechnen möchte, eine Funktion A oder eine Funktion B auf.
Beide berechnen unterschiedliche Sachen, sodass ich auch mit einem Parameter mehr nicht auskomme.
Mir ging es nur darum, dass ich für mich fand, dass die If-Abfrage "unelegant" ist und ich das ganze gerne in einer Zeile gelöst haben wollte, da sich ja eigl. nur der Funktionsname im Aufruf ändert.
Die Gesamtstruktur des VBA Codes sieht nun wie folgt aus:

Sub start()
dim a as double, b as double
a=cells(1,1)
b=cells(2,1)
call vergleich(a,b,"Variante_1")
call vergleich(a,b,"Variante_2")
End Sub

Sub vergleich(a as double, b as double, Variante as string)
dim ergebnis as double
'Hier läuft noch eine Iteration ab, bei der ich den Inhalt von "ergebnis" benötige.
ergebnis=Application.Run(Variante,a,b)
case select Variante
case "Variante_1"
ergebnis=cells(4,1)
case "Variante_2"
ergebnis=cells(4,2)
end select
End Sub

Function Variante_1(a as double, b as double)
Variante_1=a*b
End Function

Function Variante_2(a as double, b as double)
Variante_2=a+b
End Function

Vielen Dank für Eure Hilfe!
Gruß
Malte!

Beliebteste Forumthreads (12 Monate)

Function durch Übergabeparameter aufrufen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

17 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Function durch Übergabeparameter aufrufen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

17 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread