Function GETFORMELWERT(Target As Range, ByVal nr As Integer) As String
   Dim f As Integer
   Dim w As String, a As String, m As String
   Dim Erg() As String
 
   m = "0123456789.-"
 
   For i = 1 To Len(Target.Value)
      a = Mid(Target.Value, i, 1)
      If InStr(m, a) Then
         w = w + a
      ElseIf w <> "" Then
         n = n + 1
         ReDim Preserve Erg(n)
         Erg(n) = w
         w = ""
      End If
   Next
   If w <> "" Then
      n = n + 1
      ReDim Preserve Erg(n)
      Erg(n) = w
   End If
 
   If nr <= UBound(Erg) Then
      GETFORMELWERT = Erg(nr)
   End If
 
   Erase Erg
End Function