Also z.B.
+49123456 o. 49123456
Ziel:
0123456
Bitte um schnelle Antwort....vielen Dank....
Sub telefonnummern()
Dim rng As Range
Selection.NumberFormat = "@"
For Each rng In Selection
rng = "0" & Replace(Replace(Replace(Replace(Replace(Replace("+" & rng, _
"+49", ""), "/", ""), "-", ""), "+0", ""), " ", ""), "+", "")
Next
End Sub