Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formate Telefonnummern

Forumthread: Formate Telefonnummern

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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...
Anzeige
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...
 
 AB
1Beispiele 
20049 0212 690 240+49212690240
3+49212690-240+49212690240
4(0049) (0212) 690240+49212690240
50212 690240+49212690240
6(0212) 690-240+49212690240
Formeln der Tabelle
B2 : =Telefon(A2;49)
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
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)
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige