Sub TestU20()
'ab A2 erste 20 Zeilen
'in das Blatt Archiv kopiert werden
With Sheets("AV")
With .Range(.[A2], .[A2].Offset(19)).EntireRow
.Copy Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp)(2)
End With
End With
End Sub
Sub TestL20()
'in A letzte 20 Zeilen - KANN knallen wenn zu wenig Zeilen
'in das Blatt Archiv kopiert werden
Dim c As Range
With Sheets("AV")
Set c = .Cells(.Rows.Count, 1).End(xlUp)
On Error Resume Next
Set c = .Range(c.Offset(-19), c)
If Err.Number <> 0 Then Set c = .Range(.Cells(2, 1), c)
On Error GoTo 0
With c.EntireRow
.Copy Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp)(2)
End With
End With
End Sub
|