Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sonderzeichen löschen

Sonderzeichen löschen
07.04.2006 11:43:57
Ralf
Hallo Excel Experten,
ich habe in zwei Listen Telefonnummern, die ich
miteinander vergleichen muß, aaaaaaaaaaaber leider
sind die natürlich mal mit - mal mit / oder irgendetwas
anderem getrennt.
Kennt vielleicht jemand von euch eine Möglichkeit alle
Sonderzeichen zu entfernen und nur die Zahlen ( auch die 0 :-)
stehenzulassen ?
Bin für jeden Hinweis dankbar :-)
Viele Grüße
Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sonderzeichen löschen
07.04.2006 11:51:29
otto-mueller
Hallo Ralf,
Durchsuche/Ersetzen würde ich sagen!
Gruß
Otto
AW: Sonderzeichen löschen
07.04.2006 12:39:42
Ralf
Hallo Otto,
hatte ich versucht ---- aber leider :-(
ohne Erfolg
Trotzdem vielen Dank für Deinen Hinweis :-)
Viele Grüße
Ralf
AW: Sonderzeichen löschen
07.04.2006 11:52:50
UweD
Hallo
hab mir mal eine funktion gebastelt, um die zu normieren.
so z.b.
 
 AB
10049 0212 690 240+49212690240
2+49212690-240+49212690240
3(0049) (0212) 690240+49212690240
40212 690240+49212690240
5(0212) 690-240+49212690240
60049 0212 690/240+49212690240
Formeln der Tabelle
B1 : =Telefon(A1;49)
 

hier die Funktion. (gehört 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

der zweite Parameter wäre die Ländervorwahl (49 für Deutschland usw..)
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Sonderzeichen löschen
07.04.2006 12:43:40
Ralf
Hallo UweD,
eine SUPERIDEE, es klappt ganz toll. Ich kann jetzt
super mit sverweis die Vergleiche herstellen :-)
Ich hoffe , eines Tages auch mal so schnell und so gezielt
Lösungen per VBA erarbeiten zu können :-)
Du hast mir wirklich sehr geholfen.
Vielen Dank :-)
Viele Grüße
Ralf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige