Range cut paste problem
Hugo
Habe folgenden Code der den Laufzeitfehler 1004 ausgibt:
Range(ActiveCell.Offset(i, 1), ActiveCell.Offset(i, 16)).Cut
Range(ActiveCell.Offset(i + UBound(arr), 1), ActiveCell.Offset(i + UBound(arr), 16)).PasteSpecial xlPasteValues
So klappts aber geht es nicht ohne Select?
Range(ActiveCell.Offset(i, 1), ActiveCell.Offset(i, 16)).Cut
Range(ActiveCell.Offset(i + UBound(arr), 1), ActiveCell.Offset(i + UBound(arr), 16)).Select
ActiveSheet.Paste
Besten Dank für Eure Hilfe und Gruss
Hugo