letzte beschriebene Zeile erfassen
wowanick
Private Sub CommandButton1_Click()
Dim rngF As Range
Set rngF = Cells.Find("*", Range("A1"), , , , xlPrevious)
rngF.EntireRow.Copy Cells(rngF.Row + 1, 1)
End Sub
Private Sub CommandButton1_Click()
Dim rngF As Range, rngP As Range
Set rngF = Cells.Find("*", Range("A1"), , , , xlPrevious)
rngF.EntireRow.Copy Cells(rngF.Row + 1, 1)
With ActiveSheet.PageSetup
Set rngP = Range(.PrintArea)
.PrintArea = Range(rngP(1), Cells(rngF.Row + 1, rngP.Columns.Count)).Address
End With
End Sub