PowerQuery Split nach Anzahl Zeichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris, hallo Luschi,
... kommt unter der Voraussetzung das die Aufteilung nur in zwei Textteile vorgenommen werden soll, mit max Teillänge 5 für das Beispiel von Chris mit nur einer Abfrage aus.
let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Text", type text}}),
#"Spalte nach Position teilen" = Table.SplitColumn(#"Geänderter Typ", "Text", Splitter.SplitTextByPositions({0, 5}, false), {"Text.1", "Text.2"}),
#"Duplizierte Spalte" = Table.DuplicateColumn(#"Spalte nach Position teilen", "Text.2", "Text.21"),
#"Spalte nach Position teilen1" = Table.SplitColumn(#"Duplizierte Spalte", "Text.2", Splitter.SplitTextByPositions({0, 1}, false), {"Text.2.1", "Text.2.2"}),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Spalte nach Position teilen1",{{"Text.1", type text}, {"Text.2.1", type text}, {"Text.2.2", type text}, {"Text.21", type text}}),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Geänderter Typ1", "Benutzerdefiniert", each if [Text.2.1]=" " then [Text.1]&" " else [Text.1]),
#"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Hinzugefügte benutzerdefinierte Spalte", "Benutzerdefiniert", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true), {"Benutzerdefiniert.1", "Benutzerdefiniert.2"}),
#"Geänderter Typ2" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen",{{"Benutzerdefiniert.1", type text}, {"Benutzerdefiniert.2", type text}}),
#"Neu angeordnete Spalten" = Table.ReorderColumns(#"Geänderter Typ2",{"Text.1", "Text.2.1", "Text.2.2", "Benutzerdefiniert.1", "Benutzerdefiniert.2", "Text.21"}),
#"Entfernte Spalten" = Table.RemoveColumns(#"Neu angeordnete Spalten",{"Text.1", "Text.2.1", "Text.2.2"}),
#"Zusammengeführte Spalte eingefügt" = Table.AddColumn(#"Entfernte Spalten", "Zusammengeführt", each Text.Combine({[Benutzerdefiniert.2], [Text.21]}, ""), type text),
#"Entfernte Spalten1" = Table.RemoveColumns(#"Zusammengeführte Spalte eingefügt",{"Benutzerdefiniert.2", "Text.21"}),
#"Umbenannte Spalten" = Table.RenameColumns(#"Entfernte Spalten1",{{"Benutzerdefiniert.1", "Text links"}, {"Zusammengeführt", "Text rechts"}})
in
#"Umbenannte Spalten"
Bin jetzt erst einmal ein paar Tage nicht online. Schaue mir die Lösung von Luschi später an.
Gruß Werner
.. , - ...

…bzw PQs Sprache M sehe, Ben @ all,
ist der mit VBA auch nicht größer und hat den Vorteil, dass die benötigten UDFs bereits existieren und in Fmln angewendet wdn können. Ich benutze das öfter und hatte das auch schon hier gezeigt., aber es ist ja eher uncool, auf Vorhandenes im Archiv zu verweisen… :-]
Eine solche Fml würde dann so aussehen: =TxRows(A1;40)
Mit ZeilenUmbruch erhält man dann für das Bsp Ziel ist es, Texte nach maximal 40 Zeichen zu trennen, aber nicht die Wörter zu zerreißen. einen 3zeiligen Text in einer Zelle. Soll der auf mehrere Zellen (BlattZeilen) aufgeteilt wdn, lautete die plurale MatrixFml so:
{=MTRANS(VSplit(TxRows(A1;40);ZEICHEN(10)))}
Das ergäbe eine Auslastung der 3 Zellen mit den TextLängen 34, 34, 20.
Die UDF TxRows erlaubt aber auch eine bessere Auslastung des ZeilenlängeGrenzwerts, indem in den QuellText ggf zusätzliche relative TrennZeichen eingefügt wdn können, hier zB so per _: =TxRows(WECHSELN(A1;"eic";"ei_c");40;"_")
Die Aufteilung auf mehrere Zellen erfolgt dann analog: {=MTRANS(VSplit(TxRows(WECHSELN(A1;"eic";"ei_c");40;"_");ZEICHEN(10)))}
Das ergäbe hier dann eine ZellenAuslastung von 39, 38, 13 Zeichen.
ArchivLinks:
&bullet; TxRows (Vs1.2) https://www.herber.de/cgi-bin/callthread.pl?index=1084680#1085532
&bullet; VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (DownLoad BspDatei m.UDFs)
Wo die UDF-Pgmm hingehören, erkennt man am DownLoad-Bsp.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E
1	LangText	letztes		TextTeil1	RestText
2	das ist ein Texttest mit mehr als 40 Zeichen der zuvor getrennt werden soll	37		das ist ein Texttest mit mehr als 40	Zeichen der dann getrennt werden soll
3	Ziel ist es Texte nach max. 40 Zeichen zu trennen aber keine Wörter zerreißen.	39		Ziel ist es Texte nach max. 40 Zeichen	zu trennen aber keine Wörter zerreißen.
4	Benjamin vom 25.07.2021 in HerbersForum, PowerQuery Split nach Anzahl Zeichen	27		Benjamin vom 25.07.2021 in	HerbersForum, PowerQuery Split nach Anzahl Zeichen
5

Zelle	Formel
B2	=AGGREGAT(14;6;ZEILE(A$1:A$40)/(TEIL([@LangText];ZEILE(A$1:A$40);1)=" ");1)

PowerQuery Split nach Anzahl Zeichen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PowerQuery Split nach Anzahl Zeichen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread