Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sonderzeichen aus Telefonnummer löschen

Forumthread: Sonderzeichen aus Telefonnummer löschen

Sonderzeichen aus Telefonnummer löschen
27.06.2005 17:56:13
Reiner
Hallo zusammen,
ich habe mich zwar schon durch das Forum gewühlt, aber scheitere immer noch an folgendem Problem:
In einer Eingabetabelle tragen mir Kollegen immer wieder Telefonnummern mit Sonderzeichen ("/" "-" " ") ein. Ich möchte dies entweder abfangen oder - vermutlich einfacher - per VBA Makro einfach aufräumen ohne die führende "0" zu kappen. Das Feld ist ein Textfeld weil die Kollegen sonst mit der Rufnummer ohne führende "0" nicht zurechtkommen.
Ich habe es wie folgt versucht, aber dann formatiert es Excel immer als Zahl und somit ist die "0" weg.
Hat jemand von Euch eine Idee?

Sub Sonderzeichen_löschen()
ActiveWorkbook.Worksheets(1).Columns(1).Replace "/", "", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace " ", "", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace "-", "", xlPart
End Sub

Liebe Grüße aus Hessen
Reiner
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sonderzeichen aus Telefonnummer löschen
27.06.2005 19:59:49
Ramses
Hallo
Probiers mal so

Sub Sonderzeichen_löschen()
Dim myC as Range
For Each myC In Columns(1).SpecialCells(xlCellTypeConstants)
myC.Value = "'" & myC.Value
Next
ActiveWorkbook.Worksheets(1).Columns(1).Replace "/", "", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace " ", "", xlPart
ActiveWorkbook.Worksheets(1).Columns(1).Replace "-", "", xlPart
End Sub

Hierbei wird das Prefix " ' " Vor die Zahl gesetzt, dadurch wandelt EXCEL die nachfolgend entstehende Zahl nicht mehr um, und die führenden Nullen sollten erhalten bleiben
Gruss Rainer
Anzeige
AW: Sonderzeichen aus Telefonnummer löschen
28.06.2005 09:49:37
Reiner
Hallo Ramses,
deine Lösung ist zwar klein und smart, aber ich bekam auch eine weitere Rückmeldung und hier geht es ohne Sonderzeichen, so daß ich diese bei mir einbauen werde.
https://www.herber.de/forum/messages/629811.html
Trotzdem vielen lieben Dank für Deine Hilfe und weiterhin alles Gute
Reiner
Anzeige
AW: Sonderzeichen aus Telefonnummer löschen
28.06.2005 13:03:27
Ramses
Hallo
Mit der anderen Lösung wirst du das gleiche Problem haben.
Ausserdem weiss ich nicht, was du mit "ohne sonderzeichen" meinst.
Anyway,... werde glücklich :-)
Gruss Rainer
;
Anzeige
Anzeige

Infobox / Tutorial

Sonderzeichen aus Telefonnummern entfernen in Excel


Schritt-für-Schritt-Anleitung

Um Sonderzeichen aus Telefonnummern in Excel zu löschen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle im Menü Einfügen die Option Modul.
  3. Füge den folgenden Code in das Modul ein:
Sub Sonderzeichen_löschen()
    Dim myC As Range
    For Each myC In Columns(1).SpecialCells(xlCellTypeConstants)
        myC.Value = "'" & myC.Value
    Next
    ActiveWorkbook.Worksheets(1).Columns(1).Replace "/", "", xlPart
    ActiveWorkbook.Worksheets(1).Columns(1).Replace " ", "", xlPart
    ActiveWorkbook.Worksheets(1).Columns(1).Replace "-", "", xlPart
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu Excel.
  2. Markiere die Spalte mit den Telefonnummern, die du bereinigen möchtest.
  3. Führe das Makro aus, indem du ALT + F8 drückst, das Makro wählst und auf Ausführen klickst.

Dies entfernt die Sonderzeichen und stellt sicher, dass die führende "0" erhalten bleibt.


Häufige Fehler und Lösungen

  • Problem: Nach der Anwendung des Makros sind die führenden Nullen verschwunden.

    • Lösung: Stelle sicher, dass du das Prefix ' (einfaches Hochkomma) vor den Zahlen hinzufügst, wie im obigen Code gezeigt. Dies verhindert, dass Excel die Nummer als Zahl interpretiert.
  • Problem: Einige Telefonnummern wurden nicht bereinigt.

    • Lösung: Überprüfe, ob die Telefonnummern als Text formatiert sind. Wenn nicht, formatiere die Spalte als Text, bevor du das Makro ausführst.

Alternative Methoden

Es gibt auch andere Wege, um Sonderzeichen aus Telefonnummern zu entfernen, ohne VBA zu verwenden:

  1. Textfunktionen: Du kannst die Funktionen WECHSELN und TEXT verwenden, um Zeichen zu ersetzen. Beispiel:
=WECHSELN(WECHSELN(WECHSELN(A1; "/"; ""); " "; ""); "-"; "")
  1. Text in Spalten: Markiere die Spalte mit den Telefonnummern, gehe zu Daten > Text in Spalten, wähle die Option Getrennt und setze die Trennzeichen auf Sonstige mit dem Zeichen /, - und Leerzeichen.

Praktische Beispiele

Angenommen, du hast folgende Telefonnummern in Spalte A:

+49 123 456 789
0123-456-789
0123456789

Nach der Anwendung des Makros oder der Textfunktion sollte das Ergebnis in Spalte B so aussehen:

+49123456789
0123456789
0123456789

Wenn du die Telefonnummern in Excel eingeben möchtest, achte darauf, dass du die Vorwahl und die führende "0" korrekt angibst.


Tipps für Profis

  • Wenn du häufig Telefonnummern in Excel eingeben musst, kannst du eine benutzerdefinierte Formatierung für die Spalte erstellen, um sicherzustellen, dass die Eingaben immer korrekt formatiert sind.
  • Um die Eingabe zu erleichtern, kannst du ein Dropdown-Menü für häufig verwendete Vorwahlen erstellen. Dies hilft, die Telefonnummern schneller und ohne Fehler einzugeben.
  • Bei der Eingabe von internationalen Telefonnummern kannst du die Funktion TEXT verwenden, um die Formatierung zu automatisieren.

FAQ: Häufige Fragen

1. Wie gebe ich eine Telefonnummer in Excel mit + ein?
Um eine Telefonnummer mit einem "+" in Excel einzugeben, kannst du einfach das "+" vor der Nummer eingeben. Wenn du das Makro verwendest, wird das "+" nicht entfernt.

2. Was passiert, wenn ich die Telefonnummern ohne das Makro eingebe?
Wenn du die Telefonnummern ohne das Makro eingibst, werden möglicherweise die Sonderzeichen nicht entfernt, und die führenden Nullen könnten verloren gehen, wenn die Zellen als Zahl formatiert sind. Es ist ratsam, die Eingabe als Text zu formatieren, bevor du die Nummern eingibst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige