Excel-Telefonbuch

Excel-Telefonbuch (49 Beiträge, 983 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo Leute!

Folgende Aufgabenstellung:

Ich habe eine Liste mit sagen wir mal 1000 Kontakten ... alles österreichische Nummern ... ich möchte, das jetzt alle Nummern Automatisch ins gleiche Format "umgewandelt" wird...

+436641234567

im Moment sind die Nummer aber wiefolgt:

0664/1234567
066412 34 567 usw.....

gibt es da ne möglichkeit??

lg

http://www.online-excel.de/excel/singsel.php?f=99

Oma und Opa sind die eigentliche No Future Generation (Stermann & Grissemann)

markier die spalte, zeile oder was auch immer... dann geh auf dem menüpunkt "bearbeiten", wähl "ersetzen" aus!
dort kannst du suche nach 0 und ersetze durch 43 eingeben...

ist aber sicher keine elegante lösung und wenn es weitere 0 in der nummer gibt als die vorwahl, dann hast du mehrere 43 drinnen

nach dem motto : 'how to destroy a telephonebook'

mmhmm .... destroy a thelephonebook for dummies

nja..kommt ja auch seltener vor, das es, abgesehen von der Telefonnummer noch eine Null gibt

gibt es die Suchen und Ersetzten-Methode (ich habe den link von der ersten antwort noch nicht durchgeschaut) mit dem Befehl, nur das erste zeichen??

lg

nja..kommt ja auch seltener vor, das es, abgesehen von der Telefonnummer noch
eine Null gibt

also meine Frau hat 4 und ein Freund von mir 5 in der Nummer (ohne der Vorwahl).
-----------------------------------
x-x-o
o-x-o
o-o-x ... and the winner is x

lol

naja... er muss ja nicht gleich auf "alle ersetzen" klicken, er kann ja auch suchen und dann wird excel jede zahl 0 anzeigen und er kann aussuchen, ob er das nun ersetzen will oder nicht...
dauert zwar länger, aber sicher nicht die eleganteste lösung

Dann lässt man halt 0664 ersetzen mit +43664 .. usw.

Seamos realistas y hagamos lo imposible

right

Guter Plan! Aus zB 01/8770664 wird dann 01/877+43664

lg
Gott

Weil das dann sooo häufig vorkommt

Seamos realistas y hagamos lo imposible

Kann die Antwort bis zirka 22:00 warten? Wenn ja - das is gar ned so schwierig.

ja ... kein problem

wenn ichs im laufe der nacht hier bekomm ists optimal

liegrü

Ich hoff, es geht sich bis zehn aus. Vorweg noch: Alle Vorwahlen sind im nationalen Format abgelegt? / und Leerzeichen sind die einzigen "Sonderzeichen"?

Vorwahlen sind entweder 0664, 664, +43664 oder 43664 ... Sonderzeichen sind nur Leerzeichen bzw /

Edit: Bitte vorher die Telefonnummern als "Text" formatieren!

Have fun with!

28.10.2010, 23:27 Uhr - Editiert von gibberish, alte Version: hier

hi,

anm der vollständigkeit halber: aufpassen muss er/sie, wenn die telefonnummer rechtsbündig steht (als zahl erkannt wird und nicht so wie deinem ersten bsp. eine als text formatierte zahl) dann fehlt die führende "0" und +43 wird nicht angefügt...

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

Dieser Beitrag bezieht sich auf eine ältere Version des beantworteten Postings!

Ups, stimmt. Die Telefonnummern müssen dabei grundsätzlich als Text formatiert sein! Ich editier meine Antwort. Is zwar eine kleine Einschränkung, aber mit dem führenden Plus sowieso als Zahl a hatscherte Gschicht, oder?

hi,

passt schon so - ob´s alle fälle abdeckt, muss eh der threadersteller testen

der hinweis war nur dahingehend, sollten die telefonnummern rechtsbündig sein, dann fehlt ohnehin shcon die führende "0" und dann würd ich vorm macro die einträge korrigieren (als text formatieren, "0" vorstellen)

aber noch was

+44... -> +44...      passt
0043.. -> +43...      passt
0045.. -> +43045      hmm

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

Vorwahlen sind entweder 0664, 664, +43664 oder 43664 ...

laut Threadersteller - darauf hab ich aufgebaut und mich drauf verlassen.

28.10.2010, 23:35 Uhr - Editiert von gibberish, alte Version: hier

hi,

jojo, solche vorgaben kenn ich

aber ansich bräucht man ggf. nur in der zeile

Nr = Application.Substitute(Nr, "00" ~~& Code~~, "+" ~~& Code~~)

edit:
unsinn, ersetzt wieder alle doppelnullen

wenn schon, dann
if left(Nr,2) = "00" then Nr = "+" & right(Nr, len(Nr) - 2)
oder so, mein denkzentrum is no idle

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

29.10.2010, 07:46 Uhr - Editiert von hariw, alte Version: hier

Ich erhebe keinerlei Urheberrechtsansprüche auf den Code - und wenns dem Threadersteller noch ein Äuzerl besser hilft - feel free!

Schad eigentlich, dass sich der AVS nimmer meldet, der würd das in einem Macro in einer Zeile unterbringen!

Dieser Beitrag bezieht sich auf eine ältere Version des beantworteten Postings!

hi,

der werkt grad mitm hellbringer an der csv lösung und testet grad, "eine Regex drüberjagen"

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

Sollt ich mal mehr Zeit haben, mach ich mir drüber Gedanken, versprochen. In der ersten Version funktionierts für den Zweck, den der TE vorhat. Und bevor er ein erstes Feedback abgibt, wird an einem Update sowieso ned gearbeitet!

erstes feedback

mal dankeschön!!!

ahm .... folgendes ...i ch habs noch nicht probiert, aber ich habe einen änderungswunsch

es sind doch keine leerzeichen dabei ..

dafür ab und zu ein "-" und es ist IMMER im österreichischen Format

Sprich:

0664/12345679
0664-135753413
0699/1327243
usw ...

aber ich habe einen änderungswunsch

Und mein Post mit dem Makro nicht wirklich gelesen. Der Code löscht ALLE Sonderzeichen!

so ... habs gerade probiert ...

wie würde harald serafin sagen ... WUUUUNDERBAR

danke ... habs jetzt mit dem Visual Basic Editor gemacht, und es funktioniert genau so, wie ich möchte

Und zu der anderen Frage ... Nein, ich habe keine Ahnung wie ich mit Makro's funktionier bzw. wie ich welche erstellen kann

Na bitte, freut mich, dass das passt!

und mich erst

wär nämlich bissal mehr als 2 min arbeit gewesen, wenn ich alle 846 nummern händisch umschreiben hätte müssen

liegrü

Wart ab, bis du meine Rechung für die Arbeit kriegst!

dann freust wahrscheinlich nur mehr du dich

ne andere frage .... wie lange hast du dafür benötigt ?? bzw. woher hast du das wissen?? also irgendein kurs, online, etc ...

liegrü

dann freust wahrscheinlich nur mehr du dich

War ein Scherz.

Wie lang hab ich dafür gebraucht? Ich hab das vor langer Zeit mal selbst gebraucht, damals hat mich das zwei Stunden gekostet, weil ich mit VBA ned so wirklich firm war.

Ich hab dann auch Kurse zu VBA-Programmierung besucht, weil ich etliche Dinge auch beruflich immer wieder gebraucht hab und mich das Nachfragen extrem genervt hat, ich wollt das selbst bis zu einem gewissen Grad können! Tja, und nach den Kursen gings ans Probieren und Tüfteln.

Es gibt hier im Forum übrigens einige, die in diesen Dingen noch viiiieeel besser drauf sind!

ich weiss, das es ein scherz war (zumindest hoffte ich zu wissen ^^) darum auch der smiley

liegrü

Als CSV exportieren, eine Regex drüberjagen und die CSV-Datei wieder in Excel öffnen. Dürfte ein Aufwand von maximal 2 Minuten sein.

28.10.2010, 20:36 Uhr - Editiert von hellbringer, alte Version: hier

eine Regex drüberjagen

mfg
AVS

http://de.wikipedia.org/wiki/Regex

ei onli underständ rehlwehstäschn

mfg
AVS

hi,

die "high sophisticated" variante eines macros

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

macros

weiche Satan

mfg
AVS

Schreck ihn nicht so!

hi,

geh der tuat nur so gschreckt - geht ja doch hin und wieder selbst den pakt mit dem teufel ein

lg,
hariw

Zahlen versperren uns die Sicht aufs Wesentliche

...wiedermal selbst Hand angelegt...

Awa nur, wenn er ihn ned selbst anbeten (programmieren) muss!

du sagst es

aber zum Glück ist der Teufel ja bestechlich

mfg
AVS

Gut zu wissen!

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung