UDF, Minuszeichen vor Zahl auswerten
06.08.2007 14:02:00
Peter
Die Funktion ErsteZahl liefert mir die Stelle in einem String, wo erstmals eine Zahl vorkommt
=ErsteZahl(abc1) ergibt zum Beispiel 4
Nun wollte ich die Funktion ergänzen, dass ein allfälliges Minuszeichen auch als "Beginn" einer Zahl berücksichtigt wird. Doch If Mid(Wert, ErsteZahl, 1) = "-" Then ErsteZahl = ErsteZahl - 1
funktioniert nicht.
- wie muss die Ergänzung lauten (unter Berücksichtigung, dass das Nichtvorhandensein einer Zahl resp. eines Minuszeichens nicht die Rückgabe einer Fehlermeldung ergibt?
Danke für eine Rückmeldung
Peter
Function ErsteZahl(Wert As String) As Integer
Dim iStelle As Integer
For iStelle = 1 To Len(Wert)
If IsNumeric(Mid(Wert, iStelle, 1)) Then
ErsteZahl = iStelle
Exit For
End If
Next iStelle
If Mid(Wert, ErsteZahl, 1) = "-" Then ErsteZahl = ErsteZahl - 1
End Function