Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt nach Zeilenumbruch

Forumthread: Zellinhalt nach Zeilenumbruch

Zellinhalt nach Zeilenumbruch
Lorenz
Hallo zusammen,
ich habe Zellen mit Zeilenumbruch in Spalte A. Nun möchte ich in Spalte B den Inhalt nach dem ersten Zeilenumbruch und in Spalte C ab dem zweiten Zeilenumbruch.
Gibt es da auch eine passende Formel/Funktion für?
Gruß und danke vorab
Lorenz
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zellinhalt nach Zeilenumbruch
09.08.2011 19:54:48
jowe
Hallo Lorenz,
vermutlich soll ja dann in Spalte A auch nur das erste Drittel des Textes stehen?
Hier eine VBA-Lösung; in das VBA-Projekt, Diese Arbeitsmappe - Tabelle1 (bzw. Deine Tabelle!!): 
Private Sub Trenner()
Dim myText As String, vTeil As Variant, z As Long
myText = [A1]
vTeil = Split(myText, Chr(10))
For z = 0 To UBound(vTeil)
vTeil(z) = vTeil(z)
Cells(1, z + 2) = vTeil(z)
Next
End Sub

Gruß
Jochen
Anzeige
AW: Zellinhalt nach Zeilenumbruch
09.08.2011 20:08:04
Oberschlumpf
Hi Jochen
Dein Code "schreibt" aber bis in Spalte E.
Lorenz wollte aber, zumindest entnehme ich das aus seinem Text, nur maximal bis in Spalte C "schreiben" (lassen).
Ciao
Thorsten
AW: Zellinhalt nach Zeilenumbruch
09.08.2011 20:18:30
jowe
nee, nee, nee nix Spalte E:
Der Code schreibt den ersten Teil im ersten Schritt der Schleife in Spalte B (z = 0, 0+2 ist 2, also Spalte B),
der Text enthält 2 x das ASCII-Zeichen 10, der Text wird in 3 Teile geschnitten, also wird Text in Spalte B, Spalte C und Spalte D eingetragen. In Spalte E passiert nix. Zumindest auf meinem Tabellenblatt nicht.
Gruß
Jochen
Anzeige
AW: Zellinhalt nach Zeilenumbruch
09.08.2011 22:53:17
Oberschlumpf
na, keine Zeit für "Hallo" ?
Schreib mal in A1 einen Text mit z Bsp 4 Umbrüchen und starte deinen Code.
Lorenz schreibt zwar, nach dem ersten Umbruch in Spalte B + nach dem zweiten Umbruch in Spalte C, er schreibt aber nicht, dass der Text in A nur zwei Umbrüche hat - es könnten also auch mehr sein.
Ciao
Thorsten
Anzeige
AW: Zellinhalt nach Zeilenumbruch
10.08.2011 07:09:50
JoWE
Hallo Thorsten,
du hast Recht, soviel Zeit sollte immer sein.
Und ja, die (angenommenen) Zusatzbedingungen führen zu dem möglicherweise ungewollten Ergebnis.
Und nein, das beschriebene Ziel, den Text am Zeilenumbruchs zu trennen, ließ nach meiner Interpretation vermuten, der Text solle nach jedem Umbruch abgeschnitten werden.
Und ja, zwecks Ergebniskontrolle ließ ich den Ursprungseintrag in Spalte A stehen.
Gruß
Jochen
Anzeige
AW: oder mit Formeln...
09.08.2011 20:08:47
jowe
Dein Text in A1;
Formel in B1: =LINKS(A1;FINDEN(ZEICHEN(10);A1;1))
Formel in C1: =TEIL(A1;LÄNGE(B1)+1;FINDEN(ZEICHEN(10);A1;LÄNGE(B1)+2)-LÄNGE(B1)-1)
Formel in D1: =RECHTS(A1;LÄNGE(A1)-LÄNGE(B1)-LÄNGE(C1)-1)
Gruß
Jochen
AW: Zellinhalt nach Zeilenumbruch
09.08.2011 20:11:26
Oberschlumpf
Hi Lorenz
Versuchs mal hiermit: 
Sub sbUmbruch()
Dim lstrSplit() As String, liIdx As Integer, liRow As Integer
Columns("B:C").Delete
For liRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
lstrSplit = Split(Range("A" & liRow).Value, vbLf)
If UBound(lstrSplit) > 0 Then Range("B" & liRow).Value = lstrSplit(1)
If UBound(lstrSplit) > 1 Then
For liIdx = 2 To UBound(lstrSplit)
Range("C" & liRow).Value = Range("C" & liRow).Value & lstrSplit(liIdx) & _
Next
End If
Next
End Sub

(die Codezeilenumbrüche, die du hier siehst, NICHT mit übernehmen - das kommt leider durch die Forumssoftware)
Vom Grundsatz funzt mein Code genau wie der von Jochen.
Aber mein Code "schreibt" wirklich nur bis in Spalte C.
Und mein Code schreibt gar nix, wenn es in A Einträge ohne Umbruch gibt.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Zellinhalt nach Zeilenumbruch
10.08.2011 20:18:35
Lorenz
Hallo Ihr zwei,
vor lauter Freude habe ich die Rückmeldung vergessen.
Ich habe den Code von Dir, Thorsten, genommen. Funktioniert prima.
Vielen Dank für Eure Hilfe!
Lorenz

Forumthreads zu verwandten Themen

Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Daten ab bestimmter Anzahl Zeile abschneiden
Joachim

Hi,
ich kopiere auf mein Sheet Daten in eine Textbox und wenn die Informationen zu lange sind, schneide ich sie:
If Len(TextBox7.Value) GRÖSSER 300 Then TextBox7.Value = Left(TextBox7.Value, 300) & "... (mehr Informationen finden Sie online !)"
Nun meine Frage: geht so was auch...
02.09.2008 13:37:00
Thread-ID: 1006769
6 Beiträge
Anzeige
Filtern in Zeilen
Andreas

Guten Morgen,
ist es möglich im Excel waagerecht zu filtern? Zum Beispiel sollte in Zeile 2 nach allen Spalten gesucht werden die den Wert "x" enthalten. D.h alle anderen Spalten die nicht dem Suchktrerium entsprechen müssten ausgeblendet werden.
Ist soetwas (ggf ohne Makro) möglich?
07.11.2008 06:20:00
Thread-ID: 1022476
7 Beiträge
Code soll erst ab bestimmter Zeile funktionieren
Joachim

Hi,
wie kann ich denn erreichen, dass der nachfolgende Code erst ab der 10. Zeile überprüft.
Zeilen 1-9 sollen unbeachtet bleiben:
Sub Kopieren() Dim lngRow As Long lngRow = Cells(Rows.Count, "B").End(xlUp).Row MsgBox lngRow End Sub
Danke mal
Joachim
04.12.2008 11:54:00
Thread-ID: 1030126
3 Beiträge
SelectFilter erst ab Zeile4
Josef

Guten Morgen!
Wenn ich bei der nachstehenden Musterdatei zuerst das Makro "Filter_setzen" und danach das Makro "Select_Filter-Terst" starte, so erfolgt in der Tabelle1 die Markeirung erst ab der Zeile 4 und nicht wie gwünscht ab der Zeile 3. Wo und wie müßte ich bitte hier den Code veränder...
13.01.2009 07:52:48
Thread-ID: 1039077
6 Beiträge
Anzeige
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Anzeige
Spaltenbreite nach Filtern anpassen
urs

Guten Abend
Über Filter werden die gesuchten Werte einer grossen Tabelle eingegrenzt.
Wie kann ich nun die Spaltenbreite automatisch der benötigten Breite der SICHTBAREN Zeilen anpassen.
Lässt sich diese benötigte Breite ermitteln? Makro gesucht!
Vielen Dank für Eure Hilfe
G...
26.01.2010 15:51:16
Thread-ID: 1133117
6 Beiträge
Zeilen einfügen bei Autofilter
Martin

Hallo liebe Herber-Gemeinde,
ich habe in einer Datei einen Autofilter gesetzt und möchte mehrere gefilterte Zeilen in eine andere Datei mit identischem Aufbau hineinkopieren. Die Spaltenanzahl und Benennung ist in der 2. Datei wie gesagt genau derselbe und dort verwende ich ebenfalls einen...
03.08.2010 11:07:34
Thread-ID: 1170150
2 Beiträge
Zeilen einfügen bei Autofilter
Martin

Hallo liebe Herber-Gemeinde,
ich habe in einer Datei einen Autofilter gesetzt und möchte mehrere gefilterte Zeilen in eine andere Datei mit identischem Aufbau hineinkopieren. Die Spaltenanzahl und Benennung ist in der 2. Datei wie gesagt genau derselbe und dort verwende ich ebenfalls einen...
03.08.2010 11:06:50
Thread-ID: 1170154
3 Beiträge
Zeilen nach Einträgen filtern
Joni

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich habe eine Liste mit Datensätzen und möchte diese über die Eingabe von Werten "in Echtzeit" filtern. Dies funktioniert mit dem Spezialfilter und folgendem Makro.
Private Sub Worksheet_Change(ByVal Target As Ra...
24.09.2010 18:31:04
Thread-ID: 1179243
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige