Nummern erweiter mit Excel(VBA)

Question

Gibt es ein Makro das mir automatisch diese Nummern ergänzt:
040 - XXXXX-60
-69
-62
-853
-72
-73
-71
-81

So soll es aussehn:
040 - XXXX-60
040 - XXXX-69
040 - XXXX-62
.
.
.

???

Answer 1

Hallo,

ich vermute erstmal, dass es nicht nur um Nummern mit 040 xxxxx- geht, sondern um unterschiedliche Nummern, wobei der ersten vollständigen Nummer verschieden viele "Kurznummern" folgen.


Gruß

Helmut

Answer 2

Hallo,

ein Lösungsvorschlag von mir
Telefonnummern in Spalte A ab A1
Hilfsspalte, hier E

in Zelle E1 =A1

In Zelle E2 =WENN(LÄNGE(A2)>5;A2;LINKS(E1;SUCHEN("-";E1;7)-1)&A2)

diesen Inhalt nach unten ziehen bis zur letzten Nummer.

Anschliessend mit "Kopieren" und "Inhalt einfügen""Werte" die so entstandenen Nummern in Spalte A einfügen

Du solltest dir zum Probieren eine Kopie der Orginaldatei machen.


Gruß

HElmut

Answer 3

hi all :-)

ein ansatz

gruss nighty

Worksheets("Tabelle1").Range("A2:A10").Replace What:="-", Replacement:="040-XXXXX-"