Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Frankym112 am Juli 11, 2014, 21:31:41 Nachmittag

Titel: Office 2013: Telefonnummer umwandeln
Beitrag von: Frankym112 am Juli 11, 2014, 21:31:41 Nachmittag
Hallo beinander,

bin neu hier und brauch mal eure Hilfe bei Excel - 2013....

hab nix passendes gefunden --drum meine Bitte an euch - Profis   ;) :) :) :)

ich hab folgendes Telefonnummernformat: +43 (340) 727 59 67 und ich brauch folgendes Format: 433407275967

da ich hier einige Hundert aus meiner Datenbank habe und umstellen will, benötige ich dies im neuen Format...
die Nummernlänge ist unterschiedlich..

wie mach i das???

danke für eure Hilfe
Franky 8) 8)

Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: Officer am Juli 11, 2014, 21:43:36 Nachmittag
Hallo Franky,

da gibt es ein paar Möglichkeiten. Die einfachste dürfte unter Excel 2013 die Blitzvorschau-Funktion sein.
Hier habe ich dazu eine Anleitung verfasst: http://www.excel-inside.de/funktionen-a-tipps/970-erl%C3%A4uterung-der-blitzvorschau-funktion (http://www.excel-inside.de/funktionen-a-tipps/970-erl%C3%A4uterung-der-blitzvorschau-funktion)

Als Einfach neben die erste Telefonnummer das gewünschte Format eintragen und die Blitzvorschau aufrufen.

Viele Grüße

Alois
[Officer]
Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: mumpel am Juli 11, 2014, 21:45:46 Nachmittag
Hallo!

Oder per Makro. Im Beispiel stehen die Nummern in Spalte A ab Zeile 2.

Code: Visual Basic
  1. Public Sub ReFormattingPhoneNumbers()
  2. Dim cellCount As Long
  3. Dim lastCell    As Long
  4.  
  5. lastCell = Range("A" & Rows.Count).End(xlUp).Row
  6.  
  7. For cellCount = 2 To lastCell
  8.      Cells(cellCount, 1).Value = Replace(Cells(cellCount, 1).Value, "(", "")
  9.      Cells(cellCount, 1).Value = Replace(Cells(cellCount, 1).Value, ")", "")
  10.      Cells(cellCount, 1).Value = Replace(Cells(cellCount, 1).Value, " ", "")
  11.      Cells(cellCount, 1).Value = Replace(Cells(cellCount, 1).Value, "+", "")
  12. Next cellCount
  13.  
  14. End Sub
  15.  

Gruß, René
Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: Frankym112 am Juli 11, 2014, 21:56:14 Nachmittag
Hey...

super.. das ging ja flott :-)

wie mach i das mit Makro?...

will beide Versionen ausprobieren  :) :)

danke
Franky
Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: mumpel am Juli 11, 2014, 21:58:42 Nachmittag
1. ALT+F11. Damit kommst Du in den VBA-Editor
2. Ein neues Modul einfügen und dorthinein das Makro.
3. Makro noch Deinen Erfordernissen anpassen und ausführen. Dabei darauf achten dass das richtige Tabellenblatt aktiv ist.
Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: Officer am Juli 11, 2014, 22:02:14 Nachmittag
Hallo Franky,

wenn´s dir um´s ausprobieren geht, dann hab ich noch eine Formel-Lösung für dich.

Die folgende Formel geht davon aus, dass deine zu bereinigende Telefonnummer in Zelle A1 steht:

=WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"+";"");"(";"");")";"");" ";"")

Die Formel kannst du einfach nach unten kopieren.

Gruß Alois
[Officer]
Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: Frankym112 am Juli 11, 2014, 22:37:46 Nachmittag
Hey...

Toll...

DANKE ....

i probiers dann mal gleich aus.. melde mich nochmal, wenn ich eure hilfe benötige :-)

Titel: Antw:Office 2013: Telefonnummer umwandeln
Beitrag von: Frankym112 am Juli 12, 2014, 00:23:39 Vormittag
Hallo,

hod super gfunzt....

Danke für eure schnelle und unkomplizierte Hilfe...

Super Forum :)

da komm i öfter;-)