Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Code übernimmt Zeilenumbruch nicht beim kopieren

Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 18:50:02
rieckmann
Hallo allerseits,
ich habe hier einen Code der hier im Forum kreiert wurde.
er funktioniert so weit ganz gut, nur dass er beim kopieren das Format Zeilenumbruch
nicht mit kopiert.
Funktion des Code ist alle markierten Zeilen in das Tabellenblatt "Auswahlliste" zu kopieren.
Ich habe manche Zellen wo Zeilenumbrüche sind.
Diese werden beim kopieren nicht berücksichtigt.
Die sonst untereinander stehenden Sätze werden nur in einer Reihe angezeigt.
Wie muss dieser Code lauten wenn beim kopieren die Formartierung der Zellen
mit übernommen werden sollen ?
Insbesondere die Zeilenumbrüche.
Hier der Code
Gruß
Fred
Sub Schaltfläche31_Klicken()
a = True 'bei ausfuehren des Makros auf True setzten
With Sheets("Auswahlliste")
Selection.Copy
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False 'nimmt das kopieren zurück
MsgBox "Die Werte wurden erfolgreich kopiert." 'Info
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 19:06:04
Matthias
Hallo
schon mal ohne
.PasteSpecial Paste:=xlPasteValues ?
probiert?
Versuchs doch mal nur mit Paste
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Paste
Gruß Matthias

AW: Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 19:54:55
rieckmann
Hallo Mtthias,
danke für deine Antwort.
Das geht so nicht.
Es kommt ein Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht
Gruß
Fred

Anzeige
Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 20:09:13
Hajo_Zi
Hallo Fred,
Selection.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
Es werden dann aber auch Formeln eingetragen.

AW: Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 20:12:19
rieckmann
Hallo Hajo,
ja super, das klappt wunderbar.
Danke dir.
Gruß
Fred
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zeilenumbruch beim Kopieren in Excel Beibehalten


Schritt-für-Schritt-Anleitung

Um einen Zeilenumbruch beim Kopieren in Excel beizubehalten, kannst du den folgenden VBA-Code verwenden. Dieser Code kopiert die markierten Zellen inklusive der Zeilenumbrüche in das Tabellenblatt "Auswahlliste":

Sub Schaltfläche31_Klicken()
    a = True 'bei ausführen des Makros auf True setzen
    With Sheets("Auswahlliste")
        Selection.Copy
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll
    End With
    Application.CutCopyMode = False 'nimmt das kopieren zurück
    MsgBox "Die Werte wurden erfolgreich kopiert." 'Info
End Sub

Achte darauf, dass du .PasteSpecial Paste:=xlPasteAll verwendest, um alle Formate, inklusive der Zeilenumbrüche, zu kopieren.


Häufige Fehler und Lösungen

  1. Laufzeitfehler 438: Wenn du versuchst, die Methode .Paste anstelle von .PasteSpecial zu verwenden, erhältst du diesen Fehler. Stelle sicher, dass du die richtige Methode verwendest.

  2. Formatierung geht verloren: Wenn du nur xlPasteValues verwendest, gehen die Zeilenumbrüche und andere Formatierungen verloren. Verwende xlPasteAll, um das Problem zu lösen.


Alternative Methoden

Eine alternative Methode, um Excel Text mit Umbruch in eine Zelle zu kopieren, besteht darin, den Text manuell zu kopieren und in die Zelle einzufügen. Hier sind die Schritte:

  1. Markiere den gewünschten Text in der Quellzelle.
  2. Drücke Strg + C, um den Text zu kopieren.
  3. Klicke in die Zielzelle und drücke Strg + V.
  4. Nach dem Einfügen, stelle sicher, dass die Zelle auf "Textumbruch" eingestellt ist (Rechtsklick auf die Zelle -> Zellen formatieren -> Ausrichtung -> Textumbruch aktivieren).

Praktische Beispiele

Angenommen, du hast in Zelle A1 den Text:

Erster Satz
Zweiter Satz
Dritter Satz

Wenn du diesen Text in eine andere Zelle im Tabellenblatt "Auswahlliste" kopieren möchtest, verwende den oben genannten VBA-Code. Nach dem Ausführen des Codes sollte der Text in der Zielzelle mit den Zeilenumbrüchen korrekt angezeigt werden.


Tipps für Profis

  • Wenn du häufig mit HTML Zeilenumbruch in Excel arbeitest, kannst du den Text vor dem Kopieren in ein HTML-kompatibles Format umwandeln. Verwende dafür die Funktion =WECHSELN(A1;CHAR(10);"<br>") und kopiere das Ergebnis.

  • Nutze die Funktion Text in Spalten in Excel, um Daten zu organisieren, bevor du sie kopierst. Dies kann dir helfen, die Übersichtlichkeit zu verbessern.


FAQ: Häufige Fragen

1. Warum werden die Zeilenumbrüche nicht übernommen?
Wenn du nur xlPasteValues verwendest, werden die Zeilenumbrüche und Formatierungen nicht mitkopiert. Verwende xlPasteAll, um dies zu vermeiden.

2. Wie kann ich den Text manuell mit Zeilenumbrüchen in eine Zelle kopieren?
Kopiere den gewünschten Text, klicke in die Zielzelle und drücke Strg + V. Stelle sicher, dass der Textumbruch für die Zelle aktiviert ist.

3. Welche Excel-Version benötige ich für VBA-Skripte?
Die meisten Excel-Versionen unterstützen VBA, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

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