Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text einer Zelle in z.B. 3 Zellen unterteilen

Text einer Zelle in z.B. 3 Zellen unterteilen
22.02.2016 23:52:51
Peter
Hallo Zusammen,
ich weiß nicht wie mein Problem beschreiben soll, deshalb habe ich mein Problem in der Datei dargestellt.
https://www.herber.de/bbs/user/103791.xlsm
danke für Eure Antworten
LG, Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text einer Zelle in z.B. 3 Zellen unterteilen
23.02.2016 06:33:14
MCO
Moin!
Das sollte klappen:
Sub Makro1()
Dim r As Range
Dim txt As Variant
Dim i As Single, z As Single
z = 10 'Zeilenabstand unter Originaltext
Set r = ActiveCell
txt = Split(r, Chr(10)) 'Zellinhalt nach Umbruch getrennt in Speicher lesen
For i = 0 To UBound(txt) 'Speicherplätze durchgehen
r.Offset(z + i, 0) = txt(i) 'eintragen
Next i
Do While i 
Gruß, MCO

AW: Text einer Zelle in z.B. 3 Zellen unterteilen
23.02.2016 21:29:26
Peter
Hallo MCO,
vielen Dank. Das ist genau das wonach ich gesucht habe.
Dieser Code dient dazu aus einer Zeile mit ca. 15 Spalten, wobei eine Zelle zum Teil 5 Angaben enthält, für jede Angabe eine separate Zeile herzustellen. Dabei sind es ca. 100 Zeilen die händisch bearbeitet hätten werden müssen.
Ich hoffe, ich bekomme es hin, einen Code so zu schreiben dass er diese Arbeit automatisch übernimmt.
Nochmals, vielen Dank
LG, Peter
Anzeige

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige