ich habe eine Idee um mein Programm deutlich zu verkürzen und zwar in der folgenden Art:
Sub abc()
Dim ausgabe As Double
If Cells(1, 1) = 1 Then
ausgabe = berechnung("addition", 2, 2)
ElseIf Cells(1, 1) = 2 Then
ausgabe = berechnung("multiplikation", 2, 2)
End If
Cells(2, 1) = ausgabe
End Sub
Function berechnung(ByVal artderberechnung As String, wert1 As Double, wert2 As Double)
berechnung = artderberechnung(wert1, wert2)
End Function
Function addition(wert1, wert2)
addition = wert1 + wert2
End Function
Function multiplikation(wert1, wert2)
multiplikation = wert1 * wert2
End Function
ich möchte in einer Funktion, eine weitere Funktion durch einen übergebenden Wert aufrufen, jedoch steht als Fehler dort "Erwartet: Datenfeld"kann ich dieses Problem irgendwie umgehen, oder ist meine Idee so nicht umsetzt bar?
Wie könnte es alternativ gehen?
Vielen Dank!