---

Ich habe folgende Ausgangssituation in einer Zelle (immer vierzeilig):

123456
Hersteller
Artikelbeschreibung
Artikelnr. des Herstellers

Kann ich ähnlich der Funktionen LINKS oder RECHTS diese Zeilenumbrüche erfassen?
Konkret will ich nur die letzte Zeile in eine neue Zelle übertragen bzw. auch die Zeile 3 in eine separate andere Zelle.

Diese Zellumbrüche sind per Texteingabe mit Alt+Enter eingegeben worden.

Version Excel 365

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

Leider gibt es die Rückwärtssuche bei den Standard-Excelfunktionen nicht.
Ich habe mir hier in einer Allgemeinen Toolsmappe eine Funktion gelegt, die genau das macht:

Code:

---

Function RevFind(SuchText As String, Text As String) As Long
  ' Sucht den Suchtext beginnend vom Ende des Textes
  ' Rückgabe: Stelle innerhalb des Textes
  RevFind = VBA.InStrRev(Text, SuchText)
End Function

---

In der Exceltabelle brauchst dann nur die Formel: =RECHTS(D6;LÄNGE(D6) - revfind(ZEICHEN(10);D6))
diese gibt die letzte Zeile aus
Der vierzeilige Text wäre in diesem Beispiel in Zelle D6
Für die vorletzte Zeile ergäbe es danach:
=TEIL(LINKS(D6;revfind(ZEICHEN(10);D6)-1);revfind(ZEICHEN(10);LINKS(D6;revfind(ZEICHEN(10);D6)-1))+1;LÄNGE(LINKS(D6;revfind(ZEICHEN(10);D6)-1)))

Natürlich könnte man in VBA auch den ganzen Text in einzelne Zeilen zerlegen und die entsprechende, wenn vorhanden, ausgeben
Aber das wäre eine andere Funktion 

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom

Aufteilen von Text auf verschiedene Spalten mit Funktionen

Als Formeln:
1.Zeile
=LINKS(A1;SUCHEN(ZEICHEN(10);A1;1))
2.Zeile
=TEIL(A1;SUCHEN(ZEICHEN(10);A1;1)+1;SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;1)+1)-(SUCHEN(ZEICHEN(10);A1;1)+1))
3.Zeile
=TEIL(A1;SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;1)+1)+1;SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;1)+1)+1)-(SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;1)+1)))
4.Zeile
=RECHTS(A1;LÄNGE(A1)-SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;SUCHEN(ZEICHEN(10);A1;1)+1)+1))

Mit eigener Splitt-Funktion (VBA)

Code:

---

Function Splitten(expression As String, delimiter As String, index As Long) As String
    Splitten = VBA.Split(expression, delimiter)(index-1)
End Function

---

Aufruf für 3. Zeile
=Splitten(A1;ZEICHEN(10);3)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Antworten, das kommt meiner Idee sehr sehr nahe. Natürlich sind die Rohdaten auch nicht stringend gefüllt, so dass ich nacharbeiten muss, aber das erspart mir viele manuelle Tätigkeiten.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tom,

es geht auch ohne VBA-Function:

für Zeile 3 diese Formel: =XMLFILTERN("<x><g>"&WECHSELN(A1;ZEICHEN(10);"</g><g>")&"</g></x>";"//g[3]")

für Zeile 4 diese Formel =XMLFILTERN("<x><g>"&WECHSELN(A1;ZEICHEN(10);"</g><g>")&"</g></x>";"//g[4]")

Bis später,
Karin

[Diese Nachricht wurde von Beverly am 21. Sep. 2022 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP