Convert text to number
Roman
Gruss Roman
Sub test()
For Each Zelle In Selection
Zelle.Value = Replace(Zelle.Value, ".", ",") * 1
Next
End Sub