Zeilenformation

[templarderclan]

Hallo Ihr Lieben,
ich habe eine Frage:
Wie kann ich aus einer Zelle, welche diesen Inhalt hat siehe Bild und:

"

* VIEL PLATZ - Das Kartenetui bietet mit 6 Kartenfächer und einem Steckfach ausreichend Platz. Die Maße des Etuis liegen bei 10 (L) x 0,3 (B) x 8 (H) cm und das Gewicht beträgt lediglich 22 g.
* MAXIMALE DATENSICHERHEIT - Durch den eingearbeiteten RFID-Schutz werden die Karten zuverlässig abgeschirmt und effektiv vor kontaktlosem Datendiebstahl geschützt.
* 100% HANDARBEIT - Das Kartenetui wird aus edlem Rindsleder und komplett von Hand hergestellt. Die markante Logoprägung und die handgefärbten Kanten machen aus dem Kartenetui ein Unikat.
* VEGANES INNENFUTTER - Im Inneren des Kartenetuis ist hochwertiges, blaues bugatti Innenfutter aus Polyester verarbeitet.
* GESCHENKVERPACKUNG - Das Kartenetui wird in einer schönen bugatti Geschenkbox ausgeliefert und kann als edle Geschenkverpackung genutzt werden.

"
so umwandeln, dass ich den den Nachbar Zeilen, die Inhalte auch drinnen habe, aber nach Spalten in sep Zeilen.

Also statt alles in A1 
A2: " * VIEL PLATZ - Da...
A3: "  *MAXIMALE DATENSIC

...

Ich danke Euch.

Basti

[schauan]

Hallöchen,

in Excel würde ich so vorgehen:

1) Text in Spalten
2) dann ZUSPALTE nehmen, gibt's das in Libre auch?

[templarderclan]

ja das gibt es und csv ist mir nicht unbekannt,... aber das geht ned.... und ich komme ned drauf,... also an den Seperatoren liegt es ned....

ich dachte da an Hilfsformeln....

LG

[schauan]

Also, z.B. mit TEXTTEILEN bekommt man auch Text in Spalten
ABC bzw. DEF steht bei mir untereinander, mit ALT+ENTER getrennt (ZEICHEN(10)

	A	B	C	D	E
1	A B C	-->	A	B	C
2	D E F	-->	D	E	F
3
4	A	<--
5	B
6	C
7	D
8	E
9	F

Zelle	Formel
C1	=TEXTTEILEN(A1;ZEICHEN(10);0;WAHR)
C2	=TEXTTEILEN(A2;ZEICHEN(10);0;WAHR)
A4	=ZUSPALTE(C1:E2;0;FALSCH)

[Gast 123]

Hallo

hier mal ein VBA Code, der den Text in Spalte Z splitet.  Das * Zeichen fällt dabei weg!

mfg Gast 123

Code:

Sub Text_Splitten()
Dim AC As Range, lz1 As Long, Arry
    On Error GoTo Fehler
    lz1 = Cells(Rows.Count, "Z").End(xlUp).Row
     For Each AC In Range("Z2:Z" & lz1)
         Arry = Split(AC, "*")
         For j = 0 To UBound(Arry)
             Cells(AC.Row, "AA").Offset(0, j) = Trim(Arry(j))
         Next j
         Erase Arry
     Next AC
     msgboy "Alle Texte aufgeteilt"
Exit Sub
Fehler:  MsgBox "unerwarteter Fehler"
End Sub

[Gast 123]

Korrektur:   Bitte  msgboy  im Code in MsgBox ändern!

[RPP63]

Eine super Idee, VBA als Lösung für LibreOffice anzubieten! 

[derHoepp]

Moin,

ich halte es übrigens für schändlich, Fehler zu unterdrücken statt zu behandeln und wertvolle Fehlermeldungen durch  Klickgedöns mit nichtssagenden Text zu ersetzen. Das ist mir schon an anderer Stelle aufgefallen...

Viele Grüße 
derHöpp

[Gast 123]

Hallo

Eine super Idee, VBA als Lösung für LibreOffice anzubieten! 

Upps, habe ich da was übersehen??  Nun ja, dann war ich (wieder mal) unaufmerksam.
Bin auch noch KEIN Hellseher für Laufzeitfehler. Sonst könnte man sie genau angeben.

mfg Gast 123

[templarderclan]

Hallo Ihr Lieben,
danke der raschen Antworten.
Leider klappt beides irgendwie ned....
Ich mache es jetzt mal manuell sind ja nur 300.... :=)
LG und danke nochmals