letzten 27 Zeilen kopieren
11.01.2006 11:30:54
Werner
in einer Exceltabelle habe ich unterschiedliche Zeilenanzahlen, die Daten hole ich per Makro aus einer anderen Tabelle, so dass es mal nur 1 Zeile ist oder auch mal 500 Zeilen sind. Nun möchte ich aber immer nur die letzten 27 Zeilen aus der Tabelle in ein anderes Tabellenblatt kopieren.
Die letzte beschriebene Zelle kann ich mit dem Makro auslesen. Wie muss ich das Makro umschreiben, das ich das mit letzten 27 Zeilen hinbekomme.
Sub letzte_zelle()
Dim lastcell As Range
Dim r As Long
Set lastcell = ActiveSheet.Range("A1").End(xlDown)
r = lastcell.Row
MsgBox (r)
End Sub
mfg Werner
Anzeige