Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige