Microsoft Excel

Herbers Excel/VBA-Archiv

letzte Zeile suchen und kopie erstellen


Betrifft: letzte Zeile suchen und kopie erstellen von: Ron
Geschrieben am: 29.04.2017 14:27:14

Moin,

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

  

Betrifft: AW: letzte Zeile suchen und kopie erstellen von: Sepp
Geschrieben am: 29.04.2017 14:44:06

Hallo Ron,

Workbooks("Zieldatei.xlsx").Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 6) = Thisworkbook.Sheets("Auftrag").Range("M30:R30").Value

Gruß Sepp



  

Betrifft: AW: letzte Zeile suchen und kopie erstellen von: Ron
Geschrieben am: 29.04.2017 15:24:39

Hallo Sepp,

ich sage ja, heute bin ich blind...
Danke für Deine Hilfe, klar brauche ich Value.

Grüße und ein schönes Wochenende

Ron


  

Betrifft: vor allem an der richtigen Stelle! o.T. von: Sepp
Geschrieben am: 29.04.2017 15:26:04


Gruß Sepp



Beiträge aus den Excel-Beispielen zum Thema "letzte Zeile suchen und kopie erstellen"