Hallo Leute!
Ich versuche gerade mittels VBA den Inhalt von mehreren Spalten in eine zweite Tabelle zu kopieren:
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
Menü
An- und Abmelden
Partner / Links
