Hi,
ich habe einige Schwierigkeiten Zellen aus einem Workbooks ins andere reinzukopieren. Mir wird immer eine Fehlermeldung angezeigt beim durchführen:"Subscript out of range". Die Formel sieht so aus:
Sub Copy()
Dim Up As Workbook
Workbooks("UP.xls").Worksheets("Sheet1").Activate
Range("A1:G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ThisWorkbook.Sheets("Sheets1").Activate <-- Hier wird die Fehlermeldung angezeigt!
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub
Hoffe ihr könnt mir helfen!
Gruß
|