Fehlermeldung #NAME? bei Add-In

Bild

Betrifft: Fehlermeldung #NAME? bei Add-In
von: Erich
Geschrieben am: 17.11.2003 18:21:57

Hallo,kann mir jemand weiterhelfen?
Ich habe folgendes Add-In aus einem Forum kopiert und installiert

'###########################################################################################
'Zahl aus Text


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

'Herausarbeiten der Zahl

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


Bei Eingabe der Formel in B1 =ZahlAusText(A1) kommt die Fehlermeldung #NAME?
In A1 steht Creditanstalt -22.047,16 und ich möchte die Zahl aus diesem Text getrennt in einer Zelle.

Was ist da falsch?

Gruß

Erich
Bild


Betrifft: Die Function gehört in ein allgemeines Modul...
von: Boris
Geschrieben am: 17.11.2003 18:32:29

Hi Erich,

...und nicht in das Modul der Tabelle.

Man kann im übrigen auch mit Excel-Bordmitteln Zahlen aus Text extrahieren.
Schau dir mal die Funktionen 100 - 103 an:
http://www.excelformeln.de/formeln.html?gruppe=2

Grüße Boris


Bild


Betrifft: AW: Die Function gehört in ein allgemeines Modul...
von: Erich
Geschrieben am: 17.11.2003 20:09:30

Hallo Boris,

ich habe das als Add-In eingebunden und nicht in einem Modul. Aber bei Deinem Tip mit der Funktion 102 bekomme ich auch einen Fehler #NV obwohl ich bei Prüfung mit Formel bearbeiten den richtigen Wert angezeigt bekomme.

Gruß

Erich


Bild

Beiträge aus den Excel-Beispielen zum Thema " Fehlermeldung #NAME? bei Add-In"