Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Excelmen vom 11.08.2022, 16:41 Options

Nummern erweiter mit Excel(VBA)

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
.
.
.

???

Antwort schreiben

Antwort 1 von Saarbauer vom 11.08.2022, 16:50 Options

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

Antwort 2 von Saarbauer vom 12.08.2022, 08:23 Options

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

Antwort 3 von nighty vom 12.08.2022, 15:10 Options

hi all :-)

ein ansatz

gruss nighty

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken