aktiven Bereich auf anderes Tabellenblatt kopieren
26.03.2018 19:27:34
Sebastian
ich dachte es wär so einfach: Ich wollte einen durch Import befüllten Bereich aus dem Tabellenblatt "AP" in ein neues Tabellenblatt rüberkopieren. (Hintergrund: Das wird das Frontend und hat einen als Tabelle formatierten Bereich, der natürlich keine Leezeilen enthalten soll. Mir würde schon reichen die Zellen der Spalte A, nur wenn sie Werte enthalten, rüber zu kopieren. Mit einer Schleife dauert das ganze leider ziemlich lange. Aber da ich keine Zeilen überspringe, wird eine Schleife auch nicht notwendig sein.
Das ist mein aktueller Code
Public Sub LetzteZeile()
Dim last As Integer
last = Sheets("AP").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("AP").Range(Cells(2, 1), Cells(last, 14)).Copy
Sheets("Auswertung").Range("A2").Paste
End Sub
Für Zeile 4 bekomme ich immer einen Laufzeitfehler :(
Kann mir einer helfen?
LG & Danke
Sebastian