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

Microsoft Office 2003-2019 => Excel => Thema gestartet von: cekay am Januar 18, 2017, 15:35:05 Nachmittag

Titel: UsedRange innerhalb einer Spalte
Beitrag von: cekay am Januar 18, 2017, 15:35:05 Nachmittag

Hallo Leute!

Ich versuche gerade mittels VBA den Inhalt von mehreren Spalten in eine zweite Tabelle zu kopieren:

Code: [Auswählen]

Sub CopyToS()

            Sheets("tbl_e").Range("A2:A400").copy Sheets("tbl_s").Range("A2:A400")
            Sheets("tbl_e").Range("C2:I400").copy Sheets("tbl_s").Range("B2:H400")
            Sheets("tbl_e").Range("J2:O400").copy Sheets("tbl_s").Range("J2:O400")
            Sheets("tbl_e").Range("P2:P400").copy Sheets("tbl_s").Range("R2:R400")
            Rows("1:400").EntireRow.AutoFit
           
End Sub
Wie kriege ich es nun hin, dass er nicht immer bis A400 geht, sondern er bis zu letzten benutzen Zeile geht.
Aber nicht die letzte Zeile der Spalte, sondern von der ganzen Tabelle.

Beste Grüße

Titel: Antw: UsedRange innerhalb einer Spalte
Beitrag von: gmg-cc am Januar 18, 2017, 15:51:18 Nachmittag

Moin,

schau mal hier rein:
http://www.excel-ist-sexy.de/letzte-zeile-oder-spalte/ (http://www.excel-ist-sexy.de/letzte-zeile-oder-spalte/)
http://www.excel-ist-sexy.de/letzte-zeile-spalte-finden/ (http://www.excel-ist-sexy.de/letzte-zeile-spalte-finden/)