Code übernimmt Zeilenumbruch nicht beim kopieren
11.02.2014 18:50:02
rieckmann
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