title image


Smiley dont worry ...
Geht so:





Public Function GetKuerzel(r As Excel.Range, ByVal sk As String) As Variant

Dim x As Long

If r.Value = "" Or IsEmpty(r.Value) Then Exit Function

x = InStr(UCase(r.Value), Ucase(sk))

If x = 0 Then Exit Function

If x + Len(sk) < Len(r.Value) Then

GetKuerzel = Val(Trim(Mid(r.Value, x + Len(sk) + 1)))

End If

End Function



Groß-/Kleinschreibung eliminiert, gibt nur noch die Zahlen zurück.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: