Telefonnummer internationalisieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Telefonnummer internationalisieren
von: Gert
Geschrieben am: 18.07.2002 - 11:45:53

Hai,

ich möchte Telefonnummern in n Zeilen und den Spalten J bis M per Makro vom Format +49 Vorwahl/Durchwahl in +49 (Vorwahl)Durchwahl ändern. Wie ist der Code?

Vielen Dank

Gert


nach oben   nach unten

Re: Telefonnummer internationalisieren
von: fred74
Geschrieben am: 18.07.2002 - 12:46:14

versuchs doch einfach mit der Ersetzen funktion
1. suche nach "+49 " alle ersetzen durch "+49 ("
2. suche nach "/" alle ersetzen durch ")"

nach oben   nach unten

Re: Telefonnummer internationalisieren
von: Andreas
Geschrieben am: 18.07.2002 - 12:47:56

Hallo Gert,

schau Dir mal diesen Code hier an:

Sub TelAendern()
Dim As Range

For Each c In Range("J2:M10")
    With c
        .Value = WorksheetFunction.Substitute(.Value, "9 ", "9 (")
        .Value = WorksheetFunction.Substitute(.Value, "/", ")/")
    End With
Next c
End Sub

Viel Spaß,
Andreas
http://www.bei-andi.de/excel

nach oben   nach unten

Re: Telefonnummer internationalisieren
von: Gert
Geschrieben am: 18.07.2002 - 13:20:43

Hai fred74 und Andreas,

vielen Dank für die schnelle Hilfe!
Manchmal denkt man wirklich zu kompliziert, wo doch die Lösung so nah liegt.

Grüsse Gert


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Telefonnummer internationalisieren"