Fehlermeldung #NAME? bei Add-In

Function ZahlAusText(Zelle As String) As Double
Dim i%, x As Boolean, Minus As Boolean, Komma As Boolean, Zahl$
x = False
Minus = False
Komma = False
Zahl = ""
For i = 1 To Len(Zelle)
If Mid(Zelle, i, 1) = "-" And IsNumeric(Mid(Zelle, i + 1, 1)) Then
If Minus = True Then GoTo ende
Zahl = "-"
Minus = True
End If
If IsNumeric(Mid(Zelle, i, 1)) Or Mid(Zelle, i, 1) = "," Then
If Mid(Zelle, i, 1) = "," And Komma = True Then GoTo ende
If Mid(Zelle, i, 1) = "," Then Komma = True
x = True
Zahl = Zahl & Mid(Zelle, i, 1)
End If
If Not IsNumeric(Mid(Zelle, i, 1)) And Mid(Zelle, i, 1) <> "," And x = True Then GoTo ende
Next
ende:
If Zahl = "" Then ZahlAusText = 0 Else ZahlAusText = CDbl(Zahl)
End Function

Function ZahlA(Zelle As String) As Variant
Application.Volatile
For i = Len(Zelle) To 1 Step -1
If IsNumeric(Mid(Zelle, i, 1)) Then ZahlA = Mid(Zelle, i, 1) & ZahlA
Next
ZahlA = ZahlA * 1
If ZahlA = 0 Then ZahlA = ""
End Function

Function ZahlB(Zelle As String) As String
Application.Volatile
For i = 1 To Len(Zelle)
If Not IsNumeric(Mid(Zelle, i, 1)) Then
ZahlB = ZahlB & Mid(Zelle, i, 1)
End If
Next
End Function