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
wenn ich dir Formel anwende (ich benutze die Formel in Feld F8 für den Bereich F10:F10000)kommt die Fehlermeldung "Mehrdeutiger Name:Telefon". Kann mir jemand sagen, wo mein Fehler ist?
Vielen Dank