Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

UDF, Minuszeichen vor Zahl auswerten

UDF, Minuszeichen vor Zahl auswerten
06.08.2007 14:02:00
Peter
Guten Tag
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UDF, Minuszeichen vor Zahl auswerten
06.08.2007 14:05:18
ede
hallo peter,
dann solltest du auch eine stelle vor der ersten zahl auf "-" prüfen!
gruss

AW: UDF, Minuszeichen vor Zahl auswerten
06.08.2007 14:15:43
Rudi
Hallo,

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
ErsteZahl = ErsteZahl + (Mid(Wert, ErsteZahl - 1, 1) = "-")
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Vielen Dank! owT
06.08.2007 14:24:00
Peter
Anzeige

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige