String formatieren +49 -> 0
25.06.2007 11:15:00
Roberto
ich habe folgendes Problem. Ich möchte einen String (Telefonnummer) formatieren. Das funktioniert, Dank einem Forenteilnehmer auch fast perfekt. Ich verwende folgenden Befehl:
Function TelNummer(n As String) As String
Dim tmp As String
tmp = n
tmp = Replace(tmp, "+49", "0")
tmp = Replace(tmp, "+", "0")
tmp = Replace(tmp, " ", "")
TelNummer = tmp
End Function
Das einzige Problem ist, dass er die +49 nicht mit einer 0 ersetzt, sondern einfach nur die +49 löscht.
Beispiel: Eine Nummer lautet +49 173 234 456
Soll das danach so aussehen: 0173234456
Momentan sieht es aber so aus: 173234456
Danke schonmal
Gruß Roberto