Sub Zahlen_extrahieren()
y = 3
y_e = Cells(65536, 3).End(xlUp).Row
For y = 3 To y_e
Wort = ""
For n = 1 To Len(Cells(y, 3))
Zeichen = Mid(Cells(y, 3), n, 1)
For z = 1 To 11
If Zeichen = Chr(46 + z) Then Wort = Wort & Zeichen
Next
Next
Cells(y, 4) = Wort
Next
End Sub