Copy and paste

Question

Hallo,

ich habe in einer eigentlich einfachen Befehlsfolge einen Fehler, den ich mir einfach nicht erklären kann:

...
Sheets("Preisliste").Range(Sheets("Preisliste").Cells(iRow, 1), Sheets("PreisListe").Cells(iRow, 3)).Copy
Sheets("Abrechnung").Range("E" & j).Select
Selection.PasteSpecial Paste:=xlPasteValues
.....
Der selection-Befehl kann nicht ausgeführt werden...???
Ich will aber eigentlich eine "Aufspaltung" wie z.B.

Sheets("Abrechnung"). select usw vermeiden, weil ich später wieder mit
Sheets("Preisliste"). select
zurück müsste.
Hat jemand einen Tipp?
Gruß Andreas

Answer 1

Hallo Andreas,

probier es mal so:

Sheets("Preisliste").Range(Sheets("Preisliste").Cells(iRow, 1), Sheets("PreisListe").Cells(iRow, 3)).Copy
With Sheets("Abrechnung").Range("E" & j)
.PasteSpecial Paste:=xlPasteValues
End With

Gruß

M.O.

Answer 2

Hallo M.O.,

vielen Dank, das klappt. Hat mir sehr geholfen!!!
Gruß Andreas