Formate Telefonnummern

Forumthread: Formate Telefonnummern

02.03.2006 13:54:11

subzeroone

Hallo nochmal...
ich habe da noch ein Problem...
Eine Datei, in der 15.000 Telefonnummern in einer Spalte untereinander stehen.
Leider wurden die Nummern immer in einem anderen Format eingegeben. Z.B.
+49 - 1111 - 1111
0111-11111
0111/1111
0049 1111 1111
etc
etc
Kann ich mit einer bestimmten Funktion die Nummern in ein einheitliches Format bringen?
Vielen Dank für eure Ideen!
Viele Grüße

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formate Telefonnummern

02.03.2006 13:59:35

Reinhard
AW: Formate Telefonnummern

02.03.2006 14:04:50

subzeroone
AW: Formate Telefonnummern

02.03.2006 14:08:11

UweD
AW: Formate Telefonnummern

02.03.2006 14:23:25

subzeroone
AW: Formate Telefonnummern

02.03.2006 14:34:07

UweD
AW: Formate Telefonnummern

02.03.2006 15:00:04

subzeroone
Wie sollten nachher die Formate sein? owT

02.03.2006 14:09:17

serge

AW: Formate Telefonnummern

02.03.2006 13:59:35

Reinhard

Hi sub,
stellt sich irschendwie die Frage in welches Format?
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Formate Telefonnummern

02.03.2006 14:04:50

subzeroone

Hallo,
eigentlich ist es egal, welches Format es ist!
Hauptsache es ist einheitlich. Gut gefallen würde mir die Aufteilung
0049 - 1111 - 1111 . Aber eigentlich ist es wirklich egal...

AW: Formate Telefonnummern

02.03.2006 14:08:11

UweD

Hallo
hab ich mir mal programmiert:


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

in ein Modul copieren..
In der Tabelle wird das dann so verwendet...

	A	B
1	Beispiele
2	0049 0212 690 240	+49212690240
3	+49212690-240	+49212690240
4	(0049) (0212) 690240	+49212690240
5	0212 690240	+49212690240
6	(0212) 690-240	+49212690240

Formeln der Tabelle

B2 : =Telefon(A2;49)

Gruß UweD
(Rückmeldung wäre schön)

AW: Formate Telefonnummern

02.03.2006 14:23:25

subzeroone

Hallo,
schonmal vielen Dank! Jedoch wird es jetzt wahrscheinlich ein bisschen peinlich für mich! Wie wende ich diese Funktion an?
Schon einmal vielen Dank

AW: Formate Telefonnummern

02.03.2006 14:34:07

UweD

Hallo
- Alt+F11 dann kommst du in den VB Editor
- links deine Datei markieren und einfügen Modul ausführen.
- in das neue Fenster rechts den Code reinkopieren.
In der Tabelle benutzt du die Formel dann wie angegeben
z.B. in A2 =Telefon(A2;49)
- Gruß UweD
(Rückmeldung wäre schön)

AW: Formate Telefonnummern

02.03.2006 15:00:04

subzeroone

Hallo UweD,
schon mal vielen Dank!
Habe es soweit geschafft, jedoch meldet mir Excel den Fehler "Mehrdeutiger Name: Telefon" ...Wo liegt mein Fehler?
Dankeschön...

Wie sollten nachher die Formate sein? owT

02.03.2006 14:09:17

serge

Beliebteste Forumthreads (12 Monate)

Forumthread: Formate Telefonnummern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread