Impressum | Werbung

Geizhals » Forum » Programmierung » Excel-Telefonbuch (49 Beiträge, 1014 Mal gelesen) Top-100 | Fresh-100

^ Forum  Programmierung  #6209353 Excel-Telefonbuch dahoe2010 28.10.2010, 15:45:52 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   Re: Excel-Telefonbuch  (dev0 am 28.10.2010, 15:50:10)   Re: Excel-Telefonbuch  (Time am 28.10.2010, 15:57:56)   Re(2): Excel-Telefonbuch  (moby am 28.10.2010, 16:02:01)   Re(3): Excel-Telefonbuch  (dahoe2010 am 28.10.2010, 16:04:00)   Re(4): Excel-Telefonbuch  (blitzfreak am 28.10.2010, 17:03:40)   Re(3): Excel-Telefonbuch  (Time am 28.10.2010, 16:06:18)   Re(2): Excel-Telefonbuch  (Arrris am 28.10.2010, 19:24:00)   Re(3): Excel-Telefonbuch  (Time am 28.10.2010, 20:30:19)   Re(3): Excel-Telefonbuch  (Gott am 28.10.2010, 21:26:07)   Re(4): Excel-Telefonbuch  (Arrris am 29.10.2010, 06:21:11)   Re: Excel-Telefonbuch  (gibberish am 28.10.2010, 16:09:10)   Re(2): Excel-Telefonbuch  (dahoe2010 am 28.10.2010, 16:27:03)   Re(3): Excel-Telefonbuch  (gibberish am 28.10.2010, 16:38:51)   Re(4): Excel-Telefonbuch  (dahoe2010 am 28.10.2010, 21:44:10) ^ Forum  Programmierung  #6209974 Re(5): Excel-Telefonbuch gibberish 28.10.2010, 22:53:17 Wie du ein Makro einfügst, weißt du? Ok, fang ma ganz vorne an: Tabelle mit den Datensätzen öffnen, dann drückst du Alt+F11, das öffnet den Visual Basic Editor. Dort klickst auf der linken Seite das Tabellenblatt einmal an und gehst auf Menü "Einfügen" - "Modul". In das Fenster, das sich öffnet fügst folgende Funktion ein: Function Telefon(Nr$, Code$)     Nr = Application.Substitute(Nr, " ", "")     Nr = Application.Substitute(Nr, "-", "")     Nr = Application.Substitute(Nr, "/", "")     If Left(Nr, 2) = "(0" Then         Nr = Application.Substitute(Nr, "(", "")     End If     Nr = Application.Substitute(Nr, "(0", "")     Nr = Application.Substitute(Nr, "(", "")     Nr = Application.Substitute(Nr, ")", "")     Nr = Application.Substitute(Nr, "+" & Code & "0", "+" & Code)     Nr = Application.Substitute(Nr, "00" & Code, "+" & Code)     Nr = Application.Substitute(Nr, Code & "0", Code)     If Left(Nr, 1) = "0" Then         Nr = "+" & Code & Right(Nr, Len(Nr) - 1)     End If     Telefon = Nr End Function Danach Maske schließen, Editor schließen. So, und jetzt kommts nur mehr drauf an, in welcher Zelle deine Telefonnummer steht. Findet sich die 1.Telefonnummer in der Zelle E1, dann suchst dir daneben eine freie Zelle und fügst ein =Telefon(E1;43) - das wars. Die Funktion löscht alle Sonderzeichen, Leerzeichen, etc...... Edit: Bitte vorher die Telefonnummern als "Text" formatieren! Have fun with! 28.10.2010, 23:27 Uhr - Editiert von gibberish, alte Version: hier   Re(6): Excel-Telefonbuch  (hariw am 28.10.2010, 23:12:56)   Re(7): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:19:28)   Re(8): Excel-Telefonbuch  (hariw am 28.10.2010, 23:31:00)   Re(9): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:34:03)   Re(10): Excel-Telefonbuch  (hariw am 28.10.2010, 23:41:04)   Re(11): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:42:55)   Re(12): Excel-Telefonbuch  (hariw am 28.10.2010, 23:46:09)   Re(13): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:46:35)   Re(11): Excel-Telefonbuch  (gibberish am 29.10.2010, 08:50:37)   Re(12): Excel-Telefonbuch  (dahoe2010 am 29.10.2010, 09:21:06)   Re(13): Excel-Telefonbuch  (gibberish am 29.10.2010, 09:26:44)   Re(14): Excel-Telefonbuch  (dahoe2010 am 29.10.2010, 10:44:48)   Re(15): Excel-Telefonbuch  (gibberish am 29.10.2010, 11:30:50)   Re(16): Excel-Telefonbuch  (dahoe2010 am 29.10.2010, 13:01:01)   Re(17): Excel-Telefonbuch  (gibberish am 29.10.2010, 13:01:59)   Re(18): Excel-Telefonbuch  (dahoe2010 am 29.10.2010, 14:43:36)   Re(19): Excel-Telefonbuch  (gibberish am 29.10.2010, 14:57:35)   Re(20): Excel-Telefonbuch  (dahoe2010 am 29.10.2010, 15:00:27)   Re: Excel-Telefonbuch  (hellbringer am 28.10.2010, 20:35:30)   Re(2): Excel-Telefonbuch  (AVS_reloaded am 28.10.2010, 21:07:04)   Re(3): Excel-Telefonbuch  (hellbringer am 28.10.2010, 21:08:24)   Re(4): Excel-Telefonbuch  (AVS_reloaded am 28.10.2010, 21:10:57)   Re(5): Excel-Telefonbuch  (hariw am 28.10.2010, 21:29:39)   Re(6): Excel-Telefonbuch  (AVS_reloaded am 28.10.2010, 21:43:43)   Re(6): Excel-Telefonbuch  (gibberish am 28.10.2010, 22:53:41)   Re(7): Excel-Telefonbuch  (hariw am 28.10.2010, 22:56:10)   Re(8): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:00:31)   Re(9): Excel-Telefonbuch  (AVS_reloaded am 28.10.2010, 23:23:10)   Re(10): Excel-Telefonbuch  (gibberish am 28.10.2010, 23:26:46)

 

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