Excel Formel aus eigener Makro Funktion Code einfügen

=Test_Wert(B8)

Public Function Test_Wert(In_Zelle As Range)
Dim wert As String
wert = In_Zelle.Formula

Dim dblZahl As Double
dblZahl = CDbl(wert)
dblZahl = dblZahl * 100


'Ausgabe
Test_Wert = dblZahl
End Function