Function getZahl(Text as String) As Long
Dim Zahl as String
For i = 1 To Len(Text)
If IsNumeric(Mid(Text,i,1)) Then Zahl = Zahl & Mid(Text,i,1)
Next i
getZahl = CLng(Zahl)
End Function
 
'##### ODER #####
 
Function getZahl(Text as String) As Long
Dim Zahl as String
For i = 1 To Len(Text)
If IsNumeric(Mid(Text,i)) Then Zahl =Mid(Text,i): Exit For
Next i
getZahl = CLng(Zahl)
End Function