Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch erzeugt neue Zeile

Forumthread: Zeilenumbruch erzeugt neue Zeile

Zeilenumbruch erzeugt neue Zeile
25.10.2016 13:21:24
Toastie
Hallo zusammen,
als fast Ahnungsloser in Sachen VBA brauche ich eure Hilfe. Ich habe folgende Problemstellung:
In einem Tabellenblatt t1 befindet sich eine Tabelle. Diese soll zeilenweise in ein neues Tabellenblatt t2 kopiert werden. Dabei soll jedoch für jeden Zeilenumbruch in der 6. Spalte in t1 eine eigene Zeile in t2 erzeugt werden. Die Inhalte der anderen Spalten der neuen Zeile in t1 sind identisch außer natürlich die 6. Spalte. Die soll jeweils nur einen Wert haben.
Ich füge eine Beispieldatei mit t1 und t2 an wie das Endergebnis aussehen soll.
https://www.herber.de/bbs/user/109008.xlsx
Besten Dank!
Grüße
Toastie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch erzeugt neue Zeile
25.10.2016 14:07:09
Daniel
Hi
eine mögliche Markolösung:
Sub umformen()
Dim shQ As Worksheet
Dim shZ As Worksheet
Dim Zeile As Range
Dim ZelleZiel As Range
Dim TeilTexte
Set shQ = Sheets("Grunddaten - t1")
Set shZ = Sheets("Aufbereitet - t2")
shZ.Cells.Clear
For Each Zeile In shQ.UsedRange.Rows
TeilTexte = Split(Zeile.Cells(1, 6).Value, vbLf)
Set ZelleZiel = shZ.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Zeile.EntireRow.Copy
ZelleZiel.Resize(UBound(TeilTexte) + 1, 1).EntireRow.PasteSpecial xlPasteAll
ZelleZiel.Offset(0, 6 - 1).Resize(UBound(TeilTexte) + 1).Value = _
WorksheetFunction.Transpose(TeilTexte)
Next
shZ.Rows(1).Delete
End Sub
gruß Daniel
Anzeige
AW: Zeilenumbruch erzeugt neue Zeile
25.10.2016 14:19:47
UweD
Hallo
Daniel war zwar schneller..
Aber hier ein Lösung von mir
Sub fgfgdg()
    On Error GoTo Fehler
    Dim i%, Arr, Anz%
    Dim SP%, ZE&, LR&
    
    Application.ScreenUpdating = False
    SP = 6 'Spalte F 
    ZE = 2 'ab Zeile 
    
    LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    For i = LR To ZE Step -1
        Arr = Split(Cells(i, SP), vbLf)
        Anz = Ubound(Arr)
        Rows(i + 1 & ":" & i + Anz).Insert
        Rows(i).Copy Rows(i + 1 & ":" & i + Anz)
        Range(Cells(i, SP), Cells(i + Anz, SP)) = WorksheetFunction.Transpose(Arr)
    Next i
    Err.Clear
    On Error GoTo Fehler
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Zeilenumbruch erzeugt neue Zeile
25.10.2016 14:39:36
UweD
bab nicht weit genug getestet.
Sub fgfgdgewew()
    On Error GoTo Fehler
    Dim i%, Arr, Anz%
    Dim SP%, ZE&, LR&
    
    Application.ScreenUpdating = False
    SP = 6 'Spalte F 
    ZE = 2 'ab Zeile 
    
    LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    For i = LR To ZE Step -1
        Arr = Split(Cells(i, SP), vbLf)
        Anz = Ubound(Arr)
        If Anz > 0 Then
            Rows(i + 1).Resize(Anz).Insert
            Rows(i).Copy Rows(i + 1).Resize(Anz)
            Cells(i, SP).Resize(Anz + 1) = WorksheetFunction.Transpose(Arr)
        End If
    Next i
    Err.Clear
    On Error GoTo Fehler
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Zeilenumbruch erzeugt neue Zeile
25.10.2016 21:46:10
Toastie
Klappt super, vielen DANK!!!
Im nächsten Schritt muss ich eine zusätzliche Aufbereitung durchführen. Diesmal habe ich als Trennzeichen kein Zeilenumbruch sondern ein Semikolon. Erschwerend kommt hinzu, dass sich die Trennzeichen in zwei Spalten befinden (1:1 Beziehung). D.h. der Inhalt in zwei Zellen muss gleichzeitig gesetzt/gekürzt werden. Anbei wieder eine Beispieldatei.
https://www.herber.de/bbs/user/109018.xlsx
Anzeige
;

Forumthreads zu verwandten Themen

Zeilenumbruch bei verbundenen Zellen
oblivion

Hallo, ich habe mal eine Frage zum Zeilenumbruch. Wenn ich eine einzelne Zelle habe und über die Eigenschaften den Zeilenumbruch einstelle, dann wird automatisch die Zelle größer (nach unten) je mehr ich reinschreibe.
Wenn ich jetzt aber zwei oder mehr Zellen verbinde und die gleichen Einst...
22.08.2008 12:42:00
Thread-ID: 1003815
4 Beiträge
Zeilenumbruch im ScreenTip
Hans

Hallo,
kann mir jemand mitteilen wie ich im xml-Code einen Zeilenumbruch in dem Text für den Screentip erzwingen kann?
Danke
Hans
08.09.2008 15:14:29
Thread-ID: 1008174
5 Beiträge
VBA-Editor Zeilenumbruch
David

Hi Leute,
jetzt hab ich schon so viele Makros geschrieben, aber eins hab ich bisher nicht rausbekommen:
Wie erzeuge ich eigentlich MANUELL die Zeilenumbrüche im Editor? Wenn ich das Zeichen _ eingebe und anschließend Enter drücke, gehts jedenfalls nicht.
Ich hab auch noch nicht raus...
15.09.2008 18:03:53
Thread-ID: 1009867
4 Beiträge
Zeilenumbruch bei Leerschlag
Gregor

Hallo zusammen
Ich möchte per VBA bei folgender oder ähnlicher Zeichenkette bei jedem Leerschlag einen Zeilenubruch einfügen und diese dann je in eine Zelle schreiben (kopieren/transponieren):
15) RBDe ABo Bto AA TG 6690 6326
Ich habe im Archiv folgende Prozeduren gefunden, welche a...
18.09.2008 09:11:29
Thread-ID: 1010606
3 Beiträge
ComboBox Zeilenumbruch
Steffen

Hallo zusammen,
hab mal ne kleine Frage zu ner ComboBox. innerhalb der Combobox sollen 2Bemerkungen eingetragen werden können. Im Moment schreibt "er" mir diese Bemerkungen immer nur in eine lange zusammenhängende Zeile. Ich will aber eine Art Zeilenumbruch haben so dass der Text flüssig d...
25.09.2008 10:26:00
Thread-ID: 1012249
2 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Anzeige
Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Zeilenumbruch an bestimmter Stelle
Edwin

Hallo,
die Frage wurde bestimmt schon gestellt, aber ich konnte keinen Eintrag finden.
Ich möchte in einer Zelle nach einem bestimmten Wort den Zeilenumbruch erzwingen.
Die Zelle ist mit Zeilenumbruch soweit schon formatiert, aber der Umbruch findet nicht da statt wo ich will.
M...
11.11.2008 15:09:46
Thread-ID: 1023577
4 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Zeilenumbruch nach Datenimport
fix

Hallo zusammen
Ich habe eine Datenbank (Psion) exportiert in ein csv-File und habe dieses nun ins Excel eingelesen. Es funktioniert alles tip top ausser, dass in den Feldern, wo ursprünglich ein Zeilenumbruch bestand, dieser nun weg ist und mit einem Zeichen (ich nehme an ein Steuerzeichen)...
05.12.2008 10:15:29
Thread-ID: 1030382
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige