title image


Smiley Re: Access2000 - "Zahl" in String finden
Dazu könntest Du eine der beiden Functions nutzen:





Public Function BeinhaltetZahl(ByVal strText As String) As Boolean



Dim i As Long



BeinhaltetZahl = False



For i = 1 To Len(strText)

If IsNumeric(Mid(strText, i, 1)) Then

BeinhaltetZahl = True

Exit Function

End If

Next i



End Function



Public Function BeinhaltetZahl(ByVal strText As String) As Boolean



Const cstrCheck As String = "1234567890"

Dim i As Long



BeinhaltetZahl = False



For i = 1 To Len(cstrCheck)

If InStr(strText, Mid(cstrCheck, i, 1)) > 0 Then

BeinhaltetZahl = True

Exit Function

End If

Next i



End Function





Eine der beiden (nicht beide gleichzeitig!) in ein allgemeines Modul kopieren; Aufruf dann so:





MsgBox BeinhaltetZahl("Dein4711Text")





Wenn Deine Texte i.d.R. länger als 10 Zeichen sind, ist die Variante 2 vermutlich die performantere.



Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: