Clever-Excel-Forum

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

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

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

Das hat geholfen. Dankeschööön.

schusti77

Jonas0806

Steffl

schusti77