copy and paste

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind.
Mit meinem copy-Befehl
Sheets("Legende").Select
Cells.Select
Selection.Copy
Windows(Dreiteilung).Activate
Sheets("Legende").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Bei dem Kopiervorgang werden allerdings nur 4 Zeilen in die (identische) Zelle übernommen.
Mir fehlt also der komplette restliche Text.
Was mache ich da falsch?
Gruß,
Ptonka

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

H,
willst du überhaupt kopieren?
Bitte schau dir diese drei Codes mal an:


Option Explicit
Sub ptonka()
Dim Dreiteilung As String
Dreiteilung = "Abc.xls"
Sheets("Legende").Select
Cells.Select
Selection.Copy
Windows(Dreiteilung).Activate
Sheets("Legende").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
End Sub
Sub ptonka1()
Dim Dreiteilung As String
Dreiteilung = "Abc.xls"
Sheets("Legende").Cells.Copy
Windows(Dreiteilung).Sheets("Legende").Cells.PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste    ' Paste nach dem PasteSpecial ?
End Sub
Sub ptonka2()
Dim strAdUR As String
Dim Dreiteilung As String
Dreiteilung = "Abc.xls"
With ActiveWorkbook.Sheets("Legende").UsedRange
strAdUR = .Address(0, 0)
Workbooks(Dreiteilung).Sheets("Legende").Range(strAdUR) = .Value
End With
End Sub

Den ersten kennst du (im Wesentlichen). Deklaration und Belegung von "Dreiteilung" habe ich nur ergänzt, damit das Modul kompilierbar wird.
Im zweiten Code habe ich das etwas umgeschrieben, ohne Activate und Select.
Frage: Wolltest du PasteSpecial mit xlPasteValues (nur die Werte) oder wolltest du Paste,
also auch die Kopie von Formeln und Formaten?
Der dritte Code überträgt auch lange Texte, die in den Zellen stehen. Ist das die Lösung, die du tatsächlich brauchst?
Nebenbei: Mit sehr langen Texten kann Excel nicht besonders gut umgehen. Und das ist gut so.
Excel ist nun mal ein Tabellenkalkulations- und kein Textverarbeitungsprogramm.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

copy and paste

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread