Microsoft Excel

Herbers Excel/VBA-Archiv

Range in anderes Sheet Kopieren


Betrifft: Range in anderes Sheet Kopieren von: Andreas Haar
Geschrieben am: 08.08.2018 16:20:35

Hallo Liebe Excel Freunde

Ich will eine Range von einem Tabellenblatt in ein anderen kopieren, kann mir jemand helfen und sagen warum in der ersten Zeile die Fehlermeldung:
Laufzeitfehler '1004'
Anwendung- oder objektdefinierter Fehler
bekomme

: (i=66)
Sheets("Lieferantenliste").Range(Cells(7, 2), Cells(i, 12)).Copy
Sheets("Q-Fähigkeit").Range(Cells(7, 1), Cells(i, 11)).Paste

Vielen Dank
Lg Andreas

  

Betrifft: AW: Range in anderes Sheet Kopieren von: Werner
Geschrieben am: 08.08.2018 16:27:53

Hallo Andreas,

so:

With Worksheets("Lieferantenliste")
    .Range(.Cells(7, 2), .Cells(i, 12)).Copy Worksheets("Q-Fähigkeit").Cells(7, 1)
End With
So wie du das geschreiben hattest, müsstest du vor jedes Range Objekt auch das entsprechende Tabellenblatt mit angeben (also auch vor den jeweiligen Cells.
Das kann man sich sparen indem man das ganze in ein With - End With packt. Dabei muss man aber dann darauf achten, dass vor jedem Range Objekt ein Punkt gesetzt wird. So wird dann korrekt auf das im With angegebene Blatt referenziert.
Beim Ziel reicht es die linke obere Zielzelle anzugeben.

Gruß Werner


  

Betrifft: AW: Range in anderes Sheet Kopieren von: Nepumuk
Geschrieben am: 08.08.2018 16:30:40

Hallo Andreas,

beim Einfügen muss nur die obere linke Zelle angegeben werden. Teste mal:

With Worksheets("Lieferantenliste")
    Call .Range(.Cells(7, 2), .Cells(i, 12)).Copy( _
        Destination:=Worksheets("Q-Fähigkeit").Cells(7, 1))
End With

Gruß
Nepumuk


Beiträge aus dem Excel-Forum zum Thema "Range in anderes Sheet Kopieren"