Hi,
erstelle eine Schaltfläche aus den Formular-Steuerelementen und weise ihr folgendes Makro zu:
Sub Kopieren()
Dim lngLetzte As Long
With Worksheets("Tabelle2")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Worksheets("Tabelle1").Range("B26:G41").Copy .Cells(lngLetzte + 1, 1)
Worksheets("Tabelle1").Range("B26:G41").ClearContents
End With
End Sub
Das Makro gehört in ein Standardmodul.
Es wird immer in die Spalten A bis F übertragen.
Bis später, Karin