Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: cekay am Januar 05, 2017, 11:32:48 Vormittag

Titel: Nur bis zur letzten aktiven Zelle kopieren
Beitrag von: cekay am Januar 05, 2017, 11:32:48 Vormittag

Hey Community!

Ich habe vor mittels VBA mehrere unterschiedliche Spalten von einer Tabelle in eine andere Tabelle zu kopieren. Hierbei soll jedoch nur der gefüllte Bereich bzw. bis zu letzten aktiven Zelle kopieren werden. Wie mache ich dies nun?

Ich habe es bereits geschafft einen definierten Bereich zu kopieren:
Sheets("tbl1").Range("I1:P400").copy Sheets("tbl2").Range("K1:R400")


Wie kriege ich es nun hin, dass er nur bis zu aktiven Bereich kopiert und aber A2 dann kopiert?
Ich bin bereits auf ..End(xlUp) gestoßen, weiß nur nicht wie ich das einpflege

Beste Grüße

Titel: Antw: Nur bis zur letzten aktiven Zelle kopieren
Beitrag von: gmg-cc am Januar 05, 2017, 12:07:18 Nachmittag

Moin,
vielleicht hilft dir ja das hier: http://www.excel-ist-sexy.de/letzte-zeile-spalte-finden/ (http://www.excel-ist-sexy.de/letzte-zeile-spalte-finden/)

Titel: Antw: Nur bis zur letzten aktiven Zelle kopieren
Beitrag von: cekay am Januar 05, 2017, 12:40:18 Nachmittag

Hey, vielen Dank für die Antwort.

Leider komme ich nicht weiter. Ich hätte gedacht es ist auch ohne eine Function möglich.

Ist es in diese Richtung möglich/ richtig?
Sheets("tbl1").Range("A500").End(xlUp).Row.copy Sheets("tbl2").Range("A500").End(xlUp)