Autor
|
Thema: Excel Punkt in Zeilen einfügen (15104 mal gelesen)
|
vritzka Mitglied
Beiträge: 8 Registriert: 27.10.2005
|
erstellt am: 27. Okt. 2005 21:38 <-- editieren / zitieren --> Unities abgeben:
Hallo allerseits, gibt es eine Möglichkeit, bei ca 5ooo Zeilen mit diesen Werten z.B. 240101 automatisch dieses Format zu machen 24.0101? Es sind immer ingesamt 6 Stellen. Es soll immer nach der Zweiten Zahl ein Punkt eingefügt werden. Für eine Hilfe wäre ich sehr dankbar, Vielen Dank im Voraus, Volker Ritzka
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 27. Okt. 2005 21:58 <-- editieren / zitieren --> Unities abgeben: Nur für vritzka
Hi Volker, herzlich willkommen auf cad.de ! Schau dir mal meine Beispieldatei an. In Spalte B werden die ersten 2 Zahlen ausgelesen - in Spalte C werden die rechten 4 Werte deklariert. In der Spalte D wird Spalte B und C wieder zusammengefügt (aus den Einzelwerten); in Spalte F wird das ganze in einer Spalter erledigt. ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rainberg Mitglied
Beiträge: 147 Registriert: 14.01.2005
|
erstellt am: 27. Okt. 2005 22:02 <-- editieren / zitieren --> Unities abgeben: Nur für vritzka
|
vritzka Mitglied
Beiträge: 8 Registriert: 27.10.2005
|
erstellt am: 27. Okt. 2005 22:20 <-- editieren / zitieren --> Unities abgeben:
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 27. Okt. 2005 22:47 <-- editieren / zitieren --> Unities abgeben: Nur für vritzka
Oki, ... nur ergänzend nun auch noch ne VBA-Lösung;-) Code:
Sub x() Dim r&, re As Object Set re = CreateObject("vbscript.regexp") re.Pattern = "^(\d\d)" '\d\d == die ersten zwei Digits '1==Spalte A; 2== Spalte B; usw. For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row cells(r,1).numberformat="@" 'auf Textformat umstellen Cells(r, 1).Value = re.Replace(Cells(r, 1).Value, "$1.") Next End Sub
lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
vritzka Mitglied
Beiträge: 8 Registriert: 27.10.2005
|
erstellt am: 27. Okt. 2005 22:54 <-- editieren / zitieren --> Unities abgeben:
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 27. Okt. 2005 23:16 <-- editieren / zitieren --> Unities abgeben: Nur für vritzka
ja, nee, sorry ich musst jetzt nicht über Dich lachen, sondern über deinen Kommentar und meinen Nick;-) War irgendwie bissel spät dran mit meinem Post und wie ich denke kommste mit den Formellösungen eher klar, also einfach meinen ergänzenden Stuss überlesen, klappt auch ohne mit den Lösungen von Rainer & Thomas;-) lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |