ich würde gerne aus einem Arbeitsblatt per Schaltfläche Zeilen in ein anderes Arbeitsblatt in die nächste freie Zeile kopieren. Geht das und wenn ja wie?
Sub neu()
Rows(1).Copy
lz = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle2").Paste Destination:=Worksheets("Tabelle2").Rows(lz)
End Sub
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets("Tab2") ' Tabelle in der Zeile eingefügt werden sollen
Selection.EntireRow.Copy
wks.Cells(wks.UsedRange.Rows.Count + 1, 1).Insert
Application.CutCopyMode = False
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen