title image


Smiley Re: Soll es sich dabei immer um die 0049 handeln? o.T.
Hallo



ich hab mir dafür eine Funktion geschrieben:





wird so verwendet:

  th {font-weight:normal}  AB1Beispiele 20049 0212 690 240+492126902403+49212690-240+492126902404(0049) (0212) 690240+4921269024050212 690240+492126902406(0212) 690-240+4921269024070049 0212 690/240+49212690240Formeln der TabelleB2 : =Telefon(A2;49) 





folgender Code gehört dabei in ein Modul







      

Function Telefon(Nr$, Code$)

    Nr = Application.Substitute(Nr, " ", "")

    Nr = Application.Substitute(Nr, "-", "")

    Nr = Application.Substitute(Nr, "/", "")

    If Left(Nr, 2) = "(0" Then

        Nr = Application.Substitute(Nr, "(", "")

    End If

    Nr = Application.Substitute(Nr, "(0", "")

    Nr = Application.Substitute(Nr, "(", "")

    Nr = Application.Substitute(Nr, ")", "")

    Nr = Application.Substitute(Nr, "+" & Code & "0", "+" & Code)

    Nr = Application.Substitute(Nr, "00" & Code, "+" & Code)

    Nr = Application.Substitute(Nr, Code & "0", Code)

    If Left(Nr, 1) = "0" Then

        Nr = "+" & Code & Right(Nr, Len(Nr) - 1)

    End If

    Telefon = Nr

End Function 








 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: