letzte Zeile suchen und kopie erstellen
29.04.2017 14:27:14
Ron
ich bin wieder mal auf mindestens 1 1/2 Augen blind und brauche Eure Hilfe!
Aus einer Arbeitsdatei sollen die Werte von M30:R30 in eine andere Datei in das Blatt Daten in die erste freie Zeile von A kopiert werden. Mein Ansatz
Workbooks("Zieldatei.xlsx").Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 6).Value = thisworkbook.Sheets("Auftrag").Range("M30:R30")
Könnt Ihr den Fehler sehen? Beim Kopieren kommt nichts an...
Grüße
Ron