Text in spalten / Zellen trennen und wieder zuordnen

[snb]

Code:

Sub M_snb()
  sn = Cells(1).CurrentRegion
 
  With CreateObject("scripting.dictionary")
    For j = 1 To UBound(sn)
      For jj = 0 To UBound(Split(sn(j, 1), ","))
        .Item(.Count) = Filter(Split(Join(Application.Index(sn, j), ","), ","), Left(Split(sn(j, 1), ",")(jj), 3))
      Next
    Next
   
    Cells(20, 1).Resize(.Count, jj) = Application.Index(.items, 0, 0)
  End With
End Sub

[Luschi]

Hallo LCohen,

damit Deine Formel den Erwartungswerten von Joshua entspricht, habe ich sie so verändert:

Code:

=MTRANS(LAMBDA(x;t;LET(y;t&x&t;m;LÄNGE(t);
n;MAX(NACHZEILE(y;LAMBDA(a;(LÄNGE(a)-LÄNGE(WECHSELN(a;t;))-m)/m)));
WENNFEHLER(GLÄTTEN(TEXTNACH(TEXTVOR(y;t;SEQUENZ(;n;2));t;SEQUENZ(;n;1)));"")))(MTRANS(A1:C1);","))

- zusätzliche MTRANS()-Fkt.
- Trennzeichen ist ',' und nicht ', '
- dafür wurde Glätten() eingebunden, falls mehr als 1 Leerzeichen vor/nach dem Trennungskomma folgt
Trotzdem muß ich zugeben, daß solche Formeln sehr schwer nachzuvollziehen sind und wenn der neue Advanced-Formeleditor keine Zwischenergebnisse berechnen kann (à la F9-Taste), wird es für viele Excelanwender ein Monstrum bleiben.
Und genau aus diesem Grunde versuche ich solche Aufgaben mit PQ zu lösen, denn da ist das Kontrollieren von Zwischenschritte 'easy-peasy'.

Gruß von Luschi
aus klein-Paris

[LCohen]

1. Trotzdem muß ich zugeben, daß solche Formeln sehr schwer nachzuvollziehen sind 
2. und wenn der neue Advanced-Formeleditor keine Zwischenergebnisse berechnen kann (à la F9-Taste), wird es für viele Excelanwender ein Monstrum bleiben.
3. Und genau aus diesem Grunde versuche ich solche Aufgaben mit PQ zu lösen, denn da ist das Kontrollieren von Zwischenschritte 'easy-peasy'.

1. Deshalb ja der Link auf mein "Tutorium". Ich habe die Funktion dort einfach verwendet; ich musste sie nicht erneut verstehen.
2. Man kann jeden einzelnen LET-Zwischenschritt genauso auswerten - ohne Editor. Einfach die Ausgabevariable tauschen.
3. PQ hat Vorteile und Nachteile. Ich mag es halt klassisch mit Formeln.

[Luschi]

Hallo LCohen,

Ich mag es halt klassisch mit Formeln

Dann hast Du ja jetzt eine neue Spielwiese mit 'Python in Excel-Zellen'!

Gruß von Luschi
aus klein-Paris

[LCohen]

1. ich müsste dafür erst mal Python beginnen
2. ist die Anwendung von Python (naturgemäß) extrem eingeschränkt, denn es darf ja schon aus Sicherheitsgründen nur eine Kalkulation möglich sein, nichts darüber hinaus. Vermutlich kann man damit aber Zwischenschritte effizienter und speichersparender machen, als mit LET.

[schauan]

Hallöchen,

wenn ich es richtig verstanden habe, ist Voraussetzung für Python in Excel doch eine Online-Verbindung - siehe der Link in diesem Beitrag