Excel Funktion: Zahlen aus Zelle extrahieren

Der folgende VBA-Code gibt alle numerischen Zeichen einer Zelle zurück.
Der Code kann in ein beliebiges Modul geschrieben und im Sheet als Zellfunktion aufgerufen werden.
Zellfunktion Beispiel: =getzahl(A1)


Function getzahl(zelle As Range) As String
Text = zelle.Value
Dim zahl As String
zahl = ""
For i = 1 To Len(Text)
 If IsNumeric(Mid(Text, i, 1)) = True Then
  zahl = zahl & Mid(Text, i, 1)
 End If
Next i
getzahl = zahl
End Function