Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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...
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)
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...
Anzeige
Wie sollten nachher die Formate sein? owT
02.03.2006 14:09:17
serge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige