Sonderzeichen löschen

Forumthread: 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

AW: Sonderzeichen löschen

07.04.2006 11:51:29

otto-mueller
AW: Sonderzeichen löschen

07.04.2006 12:39:42

Ralf
AW: Sonderzeichen löschen

07.04.2006 11:52:50

UweD
AW: Sonderzeichen löschen

07.04.2006 12:43:40

Ralf

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.

	A	B
1	0049 0212 690 240	+49212690240
2	+49212690-240	+49212690240
3	(0049) (0212) 690240	+49212690240
4	0212 690240	+49212690240
5	(0212) 690-240	+49212690240
6	0049 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)

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)

Forumthread: Sonderzeichen löschen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread