Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch - Text wieder in Zeilen auflösen

Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 07:47:49
herrm_no
Hallo zusammen
ich steh da vor einem scheinbar grösserem Problem.
Ich habe eine Tabelle bei dieser sind in einer Reihe
in allen Zellen (Namen, Vornamen , Geburtsdatum)
mit Zeilenumbruch anstatt in eine neue Zelle geschrieben worden.
z.B.
A__________B________C
1 Norbert____Bauer____190270
Sepp_______Bäcker___200270
Ernst______Metzger__210270
2 ....
Ich möchte es nun irgendwie hinbekommen, daß ich die einzelnen Texte jeweils
wieder in eine eigene Celle bekomme.
z.B.
A________B________C
1 Norbert__Bauer____190270
2 Sepp_____Bäcker___200270
3 Ernst____Metztger_210270
usw.
kennt da jemand von euch eine einfache Lösung.
P.S. die "_" sind in Excel natürlich nicht vorhanden!!
Danke und Tschau
herrm_no

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 08:45:04
Heiko
Hallo Herm,
weis nicht ob ich dich richtig verstanden habe, teste mal den Code.
Die Daten in ein Blatt kopieren Makro starten gucken was passiert.

Sub TabelleBereinigen()
Dim arrDaten
Dim arrNamen() As String
Dim lngarrZeile As Long, lngarrSpalte As Long, lngI As Long, lngN As Long, lngRett As Long
arrDaten = ActiveSheet.UsedRange
ActiveSheet.Cells.Delete
lngN = 1
lngRett = 0
For lngarrZeile = 1 To UBound(arrDaten, 1)
For lngarrSpalte = 1 To UBound(arrDaten, 2)
arrNamen = Split(arrDaten(lngarrZeile, lngarrSpalte), vbLf)
For lngI = 0 To UBound(arrNamen)
ActiveSheet.Cells(lngN, lngarrSpalte) = arrNamen(lngI)
lngN = lngN + 1
Next lngI
lngN = 1 + lngRett
Next lngarrSpalte
lngRett = lngRett + UBound(arrNamen) + 1
lngN = 1 + lngRett
Next lngarrZeile
End Sub

Wenn es nicht hilft mußt du mal den Tabelle mit ein paar Beispieldatensätzen einstellen.
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 08:45:20
Mac4
Moin,
markiere Deine Spalte - Daten - Text in Spalten - getrennt und dann in das Feld für andere Trennzeichen die Tastenkombination ALT+0010 (als Eintrag siehst Du nichts - nicht irritieren lassen, sondern ok drücken!).
Marc
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 11:37:51
herrm_no
Hallo zusammen
danke erst mal für eure schnellen Antworten
Aber irgendwie hat das nicht das Ergebnis gebracht was ich wollte.
Das mit dem "alt+0010" hat gar nichts geändert. Vielleicht hab ich da noch was
falsch gemacht. Ich habe das Feld und auch mal eine ganze Spalte selektiert.
Bei "Text in Spalten ... Andere" hab ich dann die Taste ALT gedrückt gehalten und
die Tasten 0010 nacheinander gedrückt, dann auf Fertigstellen. Es ist nichts passiert.
Ich hab jetzt mal einen auschnitt aus dem File auf den Server hochgeladen.
https://www.herber.de/bbs/user/35884.xls
Da sieht man genau was ich eigentlich will.
Jeder Eintrag in eine extra Zeile
Tschau
herrm_no
Anzeige
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 11:42:33
Heiko
Hallo,
versteh ich nicht!
Mach mal im Zweiten Tabellenblatt ein Beispiel wie es nachher aussehen soll.
Gruß Heiko
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 13:18:57
herrm_no
Hallo Heiko
hier das File mit "Beispiel alt" und "Beispiel neu" so wie ich es brauche.
https://www.herber.de/bbs/user/35892.xls
Wenn ich es ausdrucken würde dann käme ungefähr das gleiche raus.
Ich will aber jeden Namen in einer Extra Zelle.
Ich brauch dies um es weiterverarbeiten zu können
Tschau
Norbert
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 13:31:56
Heiko
Hallo Norbert,
ich glaub da hast du viel Handarbeit vor dir, denn wie soll das Makro oder irgendeine Formel erkennen das z.B. bei Larisch Löw, Herbert zum ersten Namen und Karl Richard zum 2. Namen gehört. Könnte ja auch anderrum sein.
Gleiches würde dann für Ibel Ibel Trautner Konhäuser zutreffen, da gibt es vier Nachnamen und 5 Vornamen also welche Vornamen zu welchen Nachnamen.
Da hat einer bei der Erstellung der Liste nicht viel Ahnung von EDV gehabt, so gehts zumindest nicht.
Drum seh ich da keine Automatische Lösung, lass ich die Frage mal offen.
Gruß Heiko
Anzeige
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
17.08.2006 13:56:15
herrm_no
Hallo Heiko
das ist vollkommen richtig.
Der der dies erstellt hat war ein alter Herr, welcher
eine Chronik schreibt bzw. noch dabei ist.
Ich will ihm da ein paar sachen geradebiegen.
Alles andere hab ich schon.
Ich hätte da gehofft, daß es noch eine Möglichkeit gibt einfach nur
mit einem Trick die Zeile zu verschieben und das dann beim loslassen eine neue Zeile
generiert wird - mit dem schnittpunkt wie ich es verschoben habe.
Eigentlich geht das ja im Prinzip mit "Text in Spalten".
Ich bräuchte es mit "Text in Reihen".
Ich bin ja auch nicht gerade ein Anfänger in Excel aber dazu ist mir auch
keine Idee gekommen.
Tschau
Norbert
Anzeige
AW: Zeilenumbruch - Text wieder in Zeilen auflösen
01.09.2006 09:18:02
herrm_no
Hallo zusammen
ich hab jetzt eine relativ einfache Lösung gefunden.
1) falls man Spalten oder Rahmenlinien sichtbar hat sollten diese vorher wieder unsichtbar geschaltet werden.
2) alle Blätter ausdrucken
3) alles wieder einscannen
4) mit z.B. Abbyy fine reader die Schrift in Text umwandeln und als *.txt abspeichern(nicht als *.rtf)
5) Die Texte in Excel "importieren"(*.txt Datei öffnen) = mit fester Spaltenbreite.
Dies höhrt sich zwar sehr umständlich an.
Wenn man allerdings 20 Seiten abtippt dann dauert das im gegensatz zu meinem Weg (1h) viele länger.
Tschau
herrm_no
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige