---

Servus

Ich habe bei die 13 Familiennamen+Vornamen die in einer Zelle geschrieben sind und mit "Alt+Enter" getrennt sind. (z.B. in A1). Und brauche diese Werte in einzelne Zellen (z.B. in B1,C1,D1 . . .).

Hab es schon mit Teilen/Finden versucht, doch die Formel wird immer länger und unübersichtlicher.

GibtŽs eine Möglichkeit das einfacher zu bewerkstelligen?

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

Hallo Bernd,

ist mal ein netter Tip von Bärbel_O gewesen ...
Klappt auch mit > Daten > Text in Spalten > Trennzeichen(andere) anhaken und Strg+j eingeben.

lg Nancy

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

---

Hi Bernd,

generell sollte das Makro in dem Link deinen Wunsch erfüllen - hat nur einen kleinen Haken - es schreibts wieder in eine Zelle und nicht in zwei (benachbarte) Spalten. Ich denke aber mit dem Makro als Grundlage sollte es wem der sich mit VBA auskennt ein leichtes sein, die Trennung in zwei Spalten durchzuführen (der Text wird schon in einen ersten und einen zweiten Teil zerlegt)(Nancy ?!).

------------------
Grüsse

Thomas

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

---

Familienname
=LINKS(A1;(FINDEN("";A1)-1))

Vorname
=RECHTS(A1;LÄNGE(A1)-FINDEN("";A1))

zwischen den "" einfach ein Alt+Enter setzen

edit und wenn man das kopiert und als "nur Werte" wieder einfügt, kann man die Ausgangsspalte sogar löschen

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

gruß
CADdog,
the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

[Diese Nachricht wurde von CADdog am 05. Jul. 2005 editiert.]

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

---

Jaha? Thomas;-)
Okay, hier noch mit Makro und voll daneben:

Code:

---

Sub x()
  Dim cell As Range, arr
  For Each cell In Selection
      arr = Split(cell.Value, Chr(10))
      If UBound(arr) Then Range(cell.Offset(0, 1), cell.Offset(0, UBound(arr) + 1)) = arr
  Next
End Sub

---

lg Nancy 

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

---

achja - noch ein Lösungsansatz ohne Programierung..

Speicher einfach deine Datei als CSV, öffne diese im Notepad und ersetze dort deine ALT+ENTER (werden als Rechtecke angezeigt) mit einem ;  und öffne diese CSV wieder im Excel... 

------------------
Grüsse

Thomas

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

---

Manchmal sieht man den Wald vor lauter Bäumen nicht.
Eure Tipps sind wirklich sehr gut, und ich muss mich für die verbrauchte Zeit von euch entschuldigen.

Der andere Weg ist einteudig der bessere. Die Eigentümer zusammenfügen statt trennen geht viel einfacher.

Sorry nochmal, is mir selber peinlich.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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