ich würde gerne folgende Idee umsetzen.
Ich würde gerne den Namen der Funktion übergeben, die ich aufrufen möchte.
Im moment habe ich das ganze so gelöst, dass ich für Funktion A eine 0 übergebe und für Funktion B eine 1. Dann frage ich per If-Else-Abfrage ab, welchen Wert der Übergabeparameter hat. Je nachdem wird dann Funktion A bzw. B ausgeführt.
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
Dieses Beispiel würde ich gerne eleganter lösen (siehe unten), wobei mir für die Ausgabe noch nichts eingefallen ist:Sub test(Funktionsname as String)
dim test1 as integer, wert as integer
test1 = Funktionsname(Wert)
End Sub
Wie könnte man das lösen, bzw. geht das überhaupt?Vielen Dank!
Gruß
Malte