Gruppe
Allgemein
Problem
Wie kann ich aus dem aktiven Blatt eine bestimmte Anzahl von letzten Zellen in ein zweites Blatt übernehmen?
StandardModule: basMain
Sub FindenUndKopieren()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(xlUp)
If rng.Row < 5 Then Exit Sub
Range(rng, rng.Offset(-4)).Copy _
Worksheets("Tabelle2").Range("A1")
End Sub