im Netz habe ich eine kleine Funktion gefunden, die aus einem String eine Zahl ausfiltert:
Function StringFinden(strData As String, Pattern As String) As String
Dim RE As Object, REMatches As Object
Set RE = CreateObject("vbscript.regexp")
With RE
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Pattern
End With
Set REMatches = RE.Execute(strData)
StringFinden = REMatches(0)
End Function
Aufruf mit:
MsgBox StringFinden("12abc", "[0-9]+")
Funktioniert eigentlich ganz gut!
Nur wenn im String keine Zahl vorhanden ist, rennt die Funktion in einen Fehler!
Kann mir das jemand abstellen?
Für die Hilfe seid bedankt!!!
Mit freundlichen Grüßen
Albrecht