title image


Smiley Re: Formel um Zahl aus Text zu isolieren
Hallo Mr. Murphy,hier ist eine Funktion, die Dein Problem löst:Function ZahlAusText(Zelle)Dim i%, x As Boolean, Minus As Boolean, Komma As Boolean, Zahl$x = FalseMinus = FalseKomma = FalseZahl = ""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 endeNextende:If Zahl = "" Then ZahlAusText = 0 Else ZahlAusText = CDbl(Zahl)End FunctionUnd hier nochmal unformatiert zum Einfügen:Function ZahlAusText(Zelle)Dim i%, x As Boolean, Minus As Boolean, Komma As Boolean, Zahl$x = FalseMinus = FalseKomma = FalseZahl = ""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 endeNextende:If Zahl = "" Then ZahlAusText = 0 Else ZahlAusText = CDbl(Zahl)End FunctionDie Funktion habe ich etwas variabler geschrieben. Sie berücksichtigt:Die Zahl kann sich irgendwo im Text befinden,Nachkommastellen,negative Werte,falls hinter einer negativen Zahl ein Minus folgt, wird nur die Zahl bis dahin verwendet,das Gleiche gilt für das Komma.In die Zelle muß nur eingefügt werden: =ZahlAusText(A1).Viele GrüßeJörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: