Hallo zusammen,
wer kann mir sagen, wie ich aus einen String ermittel kann,
ob dieser eine Zahl enthält?
Beispielstrings: ABC1EF, ABCDEF, A2CDEF usw.
Gruß
Andy
Hallo Andy,
wer kann mir sagen, wie ich aus einen String ermittel kann,
ob dieser eine Zahl enthält?
bin mal wieder in der KnowHW30 fündig geworden:
Function NurZahl(Eingabe As String)
’ ***********************************************************
’ Entfernt alle nicht numerischen Werte und gibt die puren Ziffern zurück
’ Ausschließlich gedacht, um z.B. aus Telefonnummern „/“ oder „-“ oder „(“ „)“
’ zu entfernen.
’ Achtung: Es entfernt auch Komma oder Tausenderpunkt etc ohne Rücksicht.
’ Die Funktion ist also für Zahlen mit Nachkommastellen ungeeignet !!!
’ ***********************************************************
Dim I As Integer, Max As Integer, Tmp As String
NurZahl = „“
Max = Len(Trim(Nz(Eingabe)))
If Max = 0 Then
Exit Function
End If
For I = 1 To Max
Tmp = Mid(Eingabe, I, 1)
If Not (Tmp Chr(57)) Then
NurZahl = NurZahl & Tmp
End If
Next I
End Function
Hier zu finden: http://www.access-home.de/
Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)
Hallo Wolfgang,
danke für die Info und auch das Du mich auch mal wieder
dazu gebracht hast, in die KnowHow30 zu schauen 
Aber ich habe noch herausgefunden das es eine einfache Abfrage
auch tut: NOT LIKE „*[A-Z]*“
Gruß
Andy