Microsoft Excel

Herbers Excel/VBA-Archiv

Copy/paste per makro geht einfach nicht | Herbers Excel-Forum


Betrifft: Copy/paste per makro geht einfach nicht von: Julian T.
Geschrieben am: 20.11.2009 19:27:37

Liebe Excelgemeinde,

ich bin vollkommen ratlos, ich möchte eine liste kopieren per:

Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy

was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen mag per:

ActiveSheet.Name = SheetName

ActiveSheet.Paste Destination:=Worksheets(SheetName).Range("H14")
kommt der 1004 fehler

Diese variante geht auch nicht:

ActiveSheet.Range("H14").Paste

Hat jemand vielleicht eine idee für mich?

Vielen Dank schon mal ...

  

Betrifft: AW: Copy/paste per makro geht einfach nicht von: Josef Ehrensberger
Geschrieben am: 20.11.2009 20:16:25

Hallo Julian,

da hast du dich verrant.

Und das herumgemurkse mit "CHR()" ist auch unnötig und fehleranfällig.

Das sollte genügen.

With Worksheets("Bond Portfolios")
  .Range(.Cells(13, i), .Cells(LastRow, i)).Copy Range("H14")
End With


Gruß Sepp



  

Betrifft: AW: Copy/paste per makro geht einfach nicht von: Julian T.
Geschrieben am: 21.11.2009 13:31:30

Wow tausend dank, da habe ich wohl mal wieder zu kompliziert gedacht...

Ein Kleinigkeit ist aber noch, in H14 ist eine Autoformatierte Tabelle in welche eingefügt werden soll,
wie kann ich sicherstellen dass wirklich Tabelle erweitert wird?
Das scheint zufällig manchmal funktionieren, mal nicht :(

With Worksheets("Zeitreihe erstellen")
.Range(.Cells(4, 4), .Cells(LastRow, 4)).Copy Worksheets(SheetName).Range("H14")
End With


  

Betrifft: AW: Copy/paste per makro geht einfach nicht von: Josef Ehrensberger
Geschrieben am: 21.11.2009 15:20:05

Hallo Julian,

ohne Beispieltabelle und ohne genau zu wissen was du erreichen willst, ist es schwer dir zu helfen.


Gruß Sepp



Beiträge aus den Excel-Beispielen zum Thema "Copy/paste per makro geht einfach nicht"