|
Hallo Forumsgemeinde,
ich habe eine Tabelle mit 25 verschiedenen Tabellenblättern. Aktuell verschiebe ich händisch einzelne bzw. mehrere Zeilen von einem in das andere Tabellenblatt.
Wie kann ich eine oder mehrere markierte Zeilen per Makro an das Ende eines bestimmten Tabellenblattes verschieben?
Aktuell habe ich folgenden Code:
Sub Zeile_verschieben()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).Cut
Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Insert
Application.CutCopyMode = True
End Sub
Dieser funktioniert auch soweit, er schneidet die markierte Zeile aus und fügt sie im anderen Blatt nach dem letzten Eintrag ein. Gibt es eine Möglichkeit anstatt als Ziel fest die Tabelle2 anzugeben mir eine Auswahl aller Tabellenblätter vorzugeben von denen ich dann das gewünschte als Ziel auswählen kann?
Und kann man auch mehrere Zeilen gleichzeitig verschieben?
Danke schonmal für eure Unterstützung!
|