title image


Smiley nichts dramatisches ...
Findet es ein Schlüsselwort, deren Groß-/KLeinschreibung egal ist, so gibt es alle

darin befindlichen Zahlen zurück ;)



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

Dim x As Long

Dim i As Long

Dim w As String

Dim s As String



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

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

If x = 0 Then Exit Function

For i = 1 To Len(r.Value)

w = Mid(r.Value, i, 1)

If w Like "[0-9]" Then

s = s + w

End If

Next

GetKuerzel = s

End Function



Diese Funktion funktioniert in allen Office - Versionen (ab Offic '97)

Ab höheren Versionen fällt sich deutlich kürzer und schneller aus, weil

man VB6 Features verwenden kann.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: