Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung #NAME? bei Add-In

Fehlermeldung #NAME? bei Add-In
17.11.2003 18:21:57
Erich
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Die Function gehört in ein allgemeines Modul...
17.11.2003 18:32:29
Boris
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
AW: Die Function gehört in ein allgemeines Modul...
17.11.2003 20:09:30
Erich
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige