---

Telefonlistesollist.xls.txt

Hallo zusammen,

wir haben eine neue Telefonanlage bekommen und haben dort die Möglichkeit zentral ein Telefonbuch anzulegen.
Jetzt möchte ich dahin die Ansprechspartner mit Nummer aus dem ERP importieren

Wenn ich jetzt die Adressliste aus dem ERP exportiere hab ich die Nummern im folgendem Format vorliegen:
="0226323-7931-12"

damit sie jedoch unsere Telefonanlage lesen kann, sollten sie folgendermaßen aussehen:
="00226323793112"

Das heist ich suche eine Möglichkeit bei den Nummern in einem Rutsch eine führende Null hinzuzufügen
und alle Bindestriche zu löschen.
Im Anhang seht ihr wie das ganze ungefähr in Excel aussehen soll.

------------------
Grüße Matthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

per Formel?

Code:

---

In B22: ="0"&WECHSELN(B4;"-";"")

---

oder per VBA?

Code:

---

Option Explicit

Sub TelNr()
Dim a%
'Zellenformat im Zielbereich auf Text setzen
Sheets(1).Range(Cells(22, 2), Cells(34, 2)).NumberFormat = "@"
'Für Zeile 4 bis 16 (also der Quellbereich)
For a = 4 To 16
    'Zellinhalt vom Zielbereich (a+18 in diesem Beispiel) = führende 0 und Ersetzen von "-" mit nichts ""
    Sheets(1).Cells(a + 18, 2).Value = "0" & Replace(Sheets(1).Cells(a, 2).Value, "-", "")
Next a
End Sub

---

Wahrscheinlich kann man aber sogar schon beim Import was drehen, da hab ich jetzt nicht weiter nach geguckt ;-)

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von runkelruebe:

per Formel?

Code:

---

In B22: ="0"&WECHSELN(B4;"-";"")

---

---

suuuuper     
genau das was ich wollte.
So schnelle Hilfe und das am Sonntag

Zitat:

---

Original erstellt von runkelruebe:

oder per VBA?

Code:

---

Option Explicit

Sub TelNr()
Dim a%
'Zellenformat im Zielbereich auf Text setzen
Sheets(1).Range(Cells(22, 2), Cells(34, 2)).NumberFormat = "@"
'Für Zeile 4 bis 16 (also der Quellbereich)
For a = 4 To 16
    'Zellinhalt vom Zielbereich (a+18 in diesem Beispiel) = führende 0 und Ersetzen von "-" mit nichts ""
    Sheets(1).Cells(a + 18, 2).Value = "0" & Replace(Sheets(1).Cells(a, 2).Value, "-", "")
Next a
End Sub

---

---

             
da bevorzug ich doch lieber die Formel   

Tausend Dank !!!!!!!

------------------
Grüße Matthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP