Die letzten 4 Zeilen kopieren
Mat
das nachfolgende Makro, welches ich im Forum gefunden habe, kopiert die letzte Zeile eine Zeile tiefer.
Option Explicit
Dim a As Long
Sub AutoForm1_BeiKlick()
a = Cells(Rows.Count, 2).End(xlUp).Row 'Hier wird die letzte beschriebene zelle in Spalte _
_
_
A benutzt
Range(Cells(a, 1), Cells(a, 256)).Copy Cells(a + 1, 1)
End Sub
Könnt Ihr mir helfen den Code so zu ändern, dass er die letzten 4 Zeilen unter die letzte Zeile kopiert?
Gruß Mat
Anzeige