Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren