Office: Automatisch Vorwahl vor Telefonnummern

Hallo zusammen,

ich habe eine Spalte mit mehreren Hundert Telefonnummern.
Diese Spalte möchte ich in der Folge in eine andere Tabelle exportieren.

Zur besseren und einheitlichen Übersicht möchte ich, dass vor allen Telefonnummern die entsprechende Vorwahl steht.
Ich kann die Nummern entsprechend sortieren, sodass ca. 150 Nummern pro Vorwahl übrig bleiben aber genau diese jeweils150 Nummern möchte ich automatisch mit der entsprechenden Vorwahl belegen.

Mit einer Formatierung ist das offensichtlich nicht machbar. Gibt es überhaupt eine Möglichkeit??? Wenn ja wie?


Beispiel:

Nummer: 12345 -Knopfddruck- 04012345

_____________

Eine zusätzliche Spalte möchte ich nicht einfügen. Die Nummer muss in einer Spalte stehen.



Enzi

 

Habe jetzt selbst eine "Brückenlösung" erstellt.

Ich nehme die Nummern heraus und erstelle separat eine zusätzliche Spalte mit der Vorwahl. Dann bringe ich beide Nummern mit A1&B1 in Spalte C zusammen und kopiere das wieder zurück in die ursprüngliche Spalte.

Nicht schön aber praktikabel.


:roll:

Enzi

 

Hallo!

Folgendes VBA-Makro führt das Einfügen der Vorwahl durch:

Code:

Public Sub Vorwahl_Einfügen()
  Dim Zelle As Range
  Dim Vorwahl As String
  
  Vorwahl = Range("B1").Value   '<-- Vorwahl-Zelle
  
  Selection.NumberFormat = "@"
  For Each Zelle In Selection.Cells
    Zelle.Value = Vorwahl & Zelle.Value
  Next Zelle
  
End Sub

Für eine Excel-Formel würdest Du eine zusätzliche Spalte im Arbeitsblatt benötigen - da Du das nicht möchtest, bleibt nur eine Lösung mittels VBA-Makro.
Da Excel auch kein Hellseher-Programm ist, benötigst Du irgendwo eine Zelle, in der Du zuvor die Vorwahl (vorübergehend) speicherst. Das ist im obigen Makro die Zelle B1. Falls Du eine andere Zelle wünschst, musst Du das Makro an der gekennzeichneten Stelle entsprechend anpassen.

Die Anwendung des Makros ist ganz einfach:
1) In Zelle B1 vorübergehend die einzufügende Vorwahlnummer speichern.
2) Den Bereich, der die zu ändernden Telefonnummern enthält, markieren.
3) Die Tastenkombination Alt+F8 drücken, um den Makroauswahl-Dialog aufzurufen, Button "Ausführen" anklicken (bzw. Taste EINGABE drücken).
4) Daraufhin führt Excel im markierten Zellbereich die Ersetzungen durch.

Falls Du Probleme mit der Installation des Makros haben solltest, folgende Vorgangsweise einhalten:
1) Obiges Makro mit der Maus markieren; die Tastenkombination Strg+C drücken, um es in die Zwischenablage zu kopieren.
2) Ins Excel-Arbeitsblatt wechseln; dort dann die Tastenkombination Alt+F11 drücken, um den VBA-Editor zu öffnen.
3) Der VBA-Editor besitzt ein Menü: dort Folgendes auswählen: Einfügen > Modul
4) Daraufhin öffnet sich das Code-Fenster. In diesem drückst Du die Tastenkombination Strg+V, um den Code aus der Zwischenablage im Code-Fenster einzufügen.
5) Jetzt kannst Du die bezeichnete Makrozeile abändern, um eine andere Zelle für die Vorwahl zu bestimmen.
6) Um ins Excel-Arbeitsblatt zurückzugelangen, drückst Du wieder die Tastenkombination Alt+F11.

Das Makro ist damit installiert und kann, wie vorhin beschrieben, verwendet werden.

 

Hallo Anton,

diese Variante ist natürlich wesentlich eleganter.
Einfach erklärt und funktioniert tadellos.


Vielen Dank.


Enzi