Telefonnummer

Chlebnitschek · 2006-10-18T09:05:04+00:00

Hallo Excelexperten Ich doktore schon ein paar Stunden am folgenden Problem.: In einer Kundenliste werden Telefonnummern eingetragen. Z.Beisp. 03581 62334 035825 5811 015126789456 Wie kann man die Formatierung gestalten so das das Leerzeichen bei unterschiedlichen Vorwahlen richtig erkannt wird? Und kann die Funknummer auch erkannt werden also ohne Leerzeichen.? Vielen Dank imVoraus. MfG Jürgen

Hallo Jürgen,
da es sich bei der Eingabe der Telefonnummern um Text handelt, geht mit Zellformaten leider gar nichts.
Du kannst den Inhalt nur per Textfunktionen in einer 2. Hilfs-Spalte aufbereiten


A	        B
03581 62334	(03581) 62334
035825 5811	(035825) 5811
015126789456	(0151) 26789456
Formel in B1:
=WENN(ISTFEHLER(SUCHEN(" ";A1;1));"(" & LINKS(A1;4) & ") " & TEIL(A1;5;100);"(" & LINKS(A1;SUCHEN(" ";A1;1)-1) & ") " & TEIL(A1;SUCHEN(" ";A1;1)+1;100))

Anschließend könnte man das Ergebnis wieder als Werte in die Spalte A kopieren und die Hilfsspalte löschen.
Falls man die Telefonnummer vereinfacht eingeben und anschließend in einem bestimmten Format in der Zelle eintragen möchte, dann ist ein Makro nötig.
Die einfachste Lösung dürfte aber sein Vorwahl und Rufnummer in getrennten Spalten einzugeben. Dann kann man die Anzeige mit benutzerdefinierten Formaten gestalten und bei der Vorwahl z.B. die führende 0 weglassen.z.B: "(0"## ## 00") " für die Vorwahll
Gruß
Franz

Hallo Jürgen,
ein Makro, das nach der Eingabe die Telefonnummer in ein gewünschtes Format umwandelt, kann etwa so aussehen:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zelle As Range, Vorwahl As Long, Nummer As Long, Spalte As Integer, Zeile1 As Integer
Spalte = 3 'Spalte in der Telefonnummer eingegeben wird
Zeile1 = 2 'Zeile ab der Telefonnummern eingegeben werden
If Target.Column = Spalte And Target.Row >= Zeile1 And Target.Columns.Count = 1 Then
For Each Zelle In Target
If InStr(1, Zelle.Value, "(") > 0 Then
'do nothing, Zelle enthält bereits Formatierte Telefonnumer
Else
If InStr(1, Zelle.Value, " ") > 0 Then
'Vorwahl und Nummer sind durch Leerzeichen getrennt
Vorwahl = Val(Left(Zelle.Value, InStr(1, Zelle.Value, " ") - 1))
Nummer = Val(Mid(Zelle.Value, InStr(1, Zelle.Value, " ") + 1))
Else
'Funktelefonnummer ohne Leerzeichen
Vorwahl = Val(Left(Val(Zelle.Value), 3))
Nummer = Val(Mid(Val(Zelle.Value), 4))
End If
Zelle.Value = Format(Vorwahl, """(0""## 00"")""") & " " & Format(Nummer, "## ## ## ## 00")
End If
Next Zelle
End If
End Sub

Im VBA-Editor nuss du das Makro unter der Tabelle einfügen in der die Eingabe gemacht wird.
Gruss
Franz

Forumthread: Telefonnummer

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Telefonnummern in Excel richtig formatieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)