Gruppe
Allgemein
Bereich
Kopieren
Thema
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren
Problem
Wie kann ich aus dem aktiven Blatt eine bestimmte Anzahl von letzten Zellen in ein zweites Blatt übernehmen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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