Zeile kopieren und am Ende einer anderen Tabelle einfügen

[schusti77]

Hallöchen,

ich möchte eine festgelegte Zeile aus Mappe A als letzten Eintrag in einem bestimmten Blatt von Mappe B einfügen, dh. die Daten sollen in die erste freie Zeile von Mappe B eingefügt werden.
Der nachfolgende Code wirft einen Index-Fehler aus. Kann jemand helfen?

Code:

Sub Zeile_übertragen()
Worksheets("Gelieferte Anlagen").Range("A2:AM2").Copy
Workbooks.Open Filename:="C:\Users\dsc\Desktop\GelieferteAnlagen2017.xlsx"
Worksheets("2017").Cells(Worksheets("2017").Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

[Jonas0806]

Hallo,

ich denke mal, dass eines der Sheets so nicht existiert. Versuche die Sheets über ihre CodeNames anzusprechen.
z.B. so

Code:

   With Workbooks.Open(Filename:="C:\Users\dsc\Desktop\GelieferteAnlagen2017.xlsx").wks2017
       .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 39).Value = wksGlftAnlagen.Range("A2:AM2").Value
   End With

[Steffl]

Hallo,

oder so?

Code:

Sub Zeile_übertragen()
   Worksheets("Gelieferte Anlagen").Range("A2:AM2").Copy
   Workbooks.Open Filename:="C:\Users\dsc\Desktop\GelieferteAnlagen2017.xlsx"
   With ActiveWorkbook.Worksheets("2017")
      .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
   End With
   Application.CutCopyMode = False
End Sub

[schusti77]

Das hat geholfen. Dankeschööön.