title image


Smiley Hier mal eine Lösung per Makro:




Function zahl(text As String) As Long

    

    w = ""

    For i = 1 To Len(text)

        c = Mid$(text, i, 1)

        If c = "0" Or c = "1" Or c = "2" Or c = "3" Or c = "4" Or c = "5" Or c = "6" _

        Or c = "7" Or c = "8" Or c = "9" Then

            w = w & c

        End If

    Next i

    zahl = Val(w)

        







End Function





Code eingefügt mit Syntaxhighlighter 2.5







Schöne Grüße

Norbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: