Clever-Excel-Forum

Hallo zusammen,
ich hoffe euch gehts allen im neuen Jahr gut!
Habe lange nichts mehr gefragt daher möchte ich auch nachgefragt haben :=)

Ich habe eine Zelle A1 mit Inhalt:

Außen:

* weißes Kunstleder mit Logoprint
* Reißverschluss und Magnetverschluss
* zwei Henkel (Länge ca. 10,5 cm)
* abnehmbarer und verstellbarer Schultergurt (Länge ca. 56 cm)
* Reißverschlussfach auf der Rückseite
* goldfarbene Metalldetails
* Logoschriftzug auf der Vorderseite

Innen:

* Innenfutter aus beigefarbener Baumwolle
* drei Hauptfächer
* ein Reißverschlussfach
* ein Steckfach
* Logoplatte aus Plexiglas

Alle Zeilen sind gleich im Aufbau Innen und Außen - unterscheiden tun sie sich in der Anzahl der Unterpunkte mit * getrennt nach Zeile. Können bis zu 10 Unterpunkte sein je Außen und Innen

Meine Frage,... kann ich diese neu Anordnen:

Ich stelle mir das so vor, da die Werte alle untereinander sind,... dass man dahinter eine 10 Spalten macht mit Werte Außen und dann Werte Innen 10 Werte siehe Beispiel anbei!
Eventuell kann man ja filtern was steht unter Außen und wenn wie viele unterpunkte ( Sternchen ) dann... Ihr seid hier ja die Helden und habt sicher ne Idee...

Brauche alle Werte Spaltengetrennt,...Irgendwie....

LG Basti

Hi,

Formel in B2:

Code:
=WECHSELN(WECHSELN(A2;ZEICHEN(10);"");"Inn";"*Inn")

Spalte B Kopieren, Inhalte einfügen, Werte
Daten, Text in Spalten; Trenner: *

oder auch so:

[attachment=42265]
Erst mit den beiden Formeln trennen, dann mit Daten, Text in Spalten zerlegen.

auf diese einfache methode wäre ich nie gekommen,... ist nicht perfekt... aber das kann man dann schneller killen als alles zu kopieren!

=WECHSELN(WECHSELN(A2;ZEICHEN(10);"");"Inn";"*Inn")

Was macht diesen INN ???

Verstehe das ehrlich gesagt nicht!

Aber danke funktioniert mit csv wandeln dann!

LG

Hi,

siehe auch meinen Nachtrag!

Hallo,

die Zuordnung zu bestimmten Spalten ist etwas "tricky", aber einfach in die Zeile bringen geht so:

Code:
option vbasupport 1

Sub Main

Tx = split(cells(2,1),"*")

cells(4,2).resize(,ubound(Tx)) = application.transpose(application.transpose(Tx))

End Sub

mfg

templarderclan

BoskoBiati

templarderclan

BoskoBiati

Fennek