Kopieren - Inhalte einfügen | HERBERS Excel Forum

Hallo,
ich möchte einen Bereich kopieren und in ein neues Tabellenblatt einfügen. Dabei sollen nur die Werte und nicht die Formeln; die Formate; Zeilenhöhe und Spaltenbreite mit kopiert werden. Ich habe daher mit dem Makrorekorder mal etwas experimentiert. Bis auf die Zeilenhöhe konnte ich alles kopieren. Dabei wurde folgendes aufgezeichnet:


Sub Makro4()
Range("A1:G24").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub

Wenn ich allerdings das Makro ausführen will bekomme ich eine Fehlermeldung:
Laufzeitfehler 1004
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
wer kann mir helfen?
Gruß
Dieterlem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro4() Range("A1:G24").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlValues Range("A1").Select Selection.PasteSpecial Paste:=xlFormats Range("A1").Select Selection.PasteSpecial Paste:=8 Range("A1").Select End Sub

Sub Makro1() Dim rngQ As Range, lngRows As Long, hh() As Double, lngR As Long Set rngQ = Range("A1:G24") lngRows = rngQ.Rows.Count ReDim hh(1 To lngRows) For lngR = 1 To lngRows hh(lngR) = rngQ.Rows(lngR).RowHeight Next lngR rngQ.Copy Set rngQ = Nothing Workbooks.Add With Range("A1") .PasteSpecial Paste:=xlPasteFormats .PasteSpecial Paste:=xlPasteValues .PasteSpecial Paste:=xlPasteColumnWidths End With Application.CutCopyMode = False For lngR = 1 To lngRows Rows(lngR).RowHeight = hh(lngR) Next lngR ' Range("A1").Select ' falls gewünscht - sonst ist der kopierte Bereich markiert End Sub

Sub Makro1() Dim rngQ As Range, lngRows As Long, hh() As Double, lngR As Long Set rngQ = Range("A1:G24") lngRows = rngQ.Rows.Count ReDim hh(1 To lngRows) For lngR = 1 To lngRows hh(lngR) = rngQ.Rows(lngR).RowHeight Next lngR rngQ.Copy Set rngQ = Nothing Workbooks.Add With Range("A1") .PasteSpecial Paste:=xlPasteFormats .PasteSpecial Paste:=xlPasteValues .PasteSpecial Paste:=8 End With Application.CutCopyMode = False For lngR = 1 To lngRows Rows(lngR).RowHeight = hh(lngR) Next lngR ' Range("A1").Select ' falls gewünscht - sonst ist der kopierte Bereich markiert End Sub

Beliebteste Forumthreads (12 Monate)

Kopieren - Inhalte einfügen

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread